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CHRISTMAS ISSUE : 
———— M —Án— i , " Y 
This is the Christmas issue of BEEBUG and for the first time boasts over 56 


pages. What is more, future issues will also provide just as many pages, with more 


reviews and news, and even more programs and articles. 


To provide the Christmas flavour this month, we have a musical Christmas Carol 
(with three more on the magazine cassette/disc), and a Cartoon Calendar for 1985 
featuring a character from a well-known and popular computer game. As well, in 
addition to our usual two excellent full-length games, we have one page containing 
no less than three complete and challenging one-line games. 


MEMORY SIZE 

Starting from the next issue, we shall no longer publicise the relevant memory 
size (16K or 32K) with the title of each program in the magazine. The number of 
remaining 16K machines is now a small and decreasing proportion of the total, and 
the information can be inferred in most cases from mode statements in the programs. 


We shall continue to test all our programs on both Basic I and Basic II, and we 
also check all programs for disc or tape incompatibilities where appropriate. 


Mike Williams 


TESTING OUT YOUR MICRO 


We have had a number of enquiries regarding the disc drive test program published 
in BEEBUG Vol.3 No.5. Although this was tested with a variety of disc drives in use 
here at BEEBUG, it is clear that the program can produce a misleading result with 
some drives (or with some settings). if your drives otherwise appear to be working 
quite correctly, then you should ignore any indication to the contrary produced by 
the test program (though it may be worth checking the settings of the DIL switch 
under the cover at the front of the keyboard for correct timimg). In particular, if 
you have an older (and slower) Shugart drive, for example model SA4ØØL, you should 
try changing the '-21' at line 1270 to '-16' to match the timimg. 


WEE SHUGGY 


Unfortunately, the superb game Wee Shuggy in the last issue (Vol.3 No.7) was 
marred by the omission of spaces in lines 220,300 and 1900. These should be inserted 
between keywords and variable names in these three lines when typing in the program. 
This arose because the version used had been previously compacted by the author. The 
compaction causes no problem on the magazine cassette/disc version. 


HINT WINNERS 

We have decided to award an additional prize of £15 for any really outstanding 
hint that we publish, in addition to our normal prizes of £10 and £5. This month the 
£10 prize goes to Paul Walls, and we are awarding two prizes of £5, to Ashley 


Denninson and Tony Walsh. If you have any useful hints or tips, then why not 
write and let us know. Maybe you will be the first to win our new £15 prize. 


MAGAZINE CASSETTE/DISC ` 


This month the magazine cassette/disc contains a mammoth 60K of programs. This 
includes the full updated printer spooler utility, a total of four visual and 
musical Christmas carols, and an extra Program: a superb professional machine code 
'Pengo'-style game with a Christmas theme called Christmas Antics, by John Wallace. 


na Tum 
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With Christmas approaching we have 
decided to include a program with a 
Seasonal flavour that provides a good 
demonstration of the sound and graphics 
capabilities of your BBC micro. The 
program builds up an attractive 
Christmas card display on the screen 
while playing a rendering of "While 
Shepherds Watched Their Flocks By 
Night". We are sure that you will find 
the results of typing in this 
relatively short program well worth 
while. Be careful when copying the 
program, particularly with the data 


Statements at the end, if you don't 
want the music to be out of tune. k 
The program is well structured and 
you should have no difficulty in 
identifying the various parts from the 
procedure names, The music is held as 
a series of numbers in data statements 
which are used as the parameters for 
sound frequency, volume and duration in 


the procedure PROCMUSIC. Once started 
the music will continue indefinitely 


until you press Escape or Break. 


2 
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REM PROGRAM XMAS CAROL 
REM VERSION BØ.2 

REM AUTHOR  D.CHAPPELL 
40 REM BEEBUG DECEMBER 1984 UG 
50 REM PROGRAM SUBJECT TO COPYRIGHT 
60 : ; 
ON ERROR GOTO 356 

118 MODE 1 

VDU23,1,0;0;050; 

DIMQS (35) , R$ (35) ,5% (35) ,S (7) ,C(7) 
A$-0:1$-20:C(1)21:C(2) =2:C(3) =3 > 
REPEAT : . 
S7RND (1279) : Y$=RND (1023) :Z$-RND( ; 


169 
60) +39 
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170 I$-I$-1:1F I%=ØTHEN IS-RND(25)-45: 
REPEAT :C$-RND (7) : K$-RND (3) : UNTIL (C%<>C ( 
1) ANDC$<>C (2) ANDC%<>C (3) ) sVDU19,K2,C$2, Ø 
,Q,0:C(K$)-C$ 

180 PROCSTAR (Q% (A$) , R$ (AS) , S$ (A2) 412, 
Ø) y 


21Ø UNTIL ADVAL(-6)=15 
220 FOR A%=@TO35: PROCSTAR (Q% (A%) , R£ (A 
$) ,S$ (AS) +12,Ø) : NEXT 
230 RESTORE 
240 VDU26, 20 
250 VDU19,1,4,0,0,0:VDU19,2,2,0,0,0 
260 GCOLG, 129:CLG:GCOLG, 2 
270 MOVEØ, 650 : DRAW3ØØ, 680: DRAW550 , 680 
: DRAW850 , 740: DRAW900 , 740: DRAW1279, 690 
280 FOR Y$-0TO740STEP4 
290 PLOT77,9ØØ,Y%:NEXT 
300 PROCSTAR(3ØØ,95Ø,5Ø,3) 
319 FOR Y$=58ØT014ØSTEP-4Ø > 
320 PROCSHEEP (1 5Ø+RND (95Ø) , YS+RND (5Ø) 
r Z*RND (2) -3) : NEXT 
33Ø C3=1 : REPEAT: PROCRAY : PROCMUS IC : UNT 
ILADVAL (-6) =15 
340 : 
350 ON ERROR OFF :MODE 7 
36Ø IF ERR=17 END 
370 REPORT: PRINT" at line ";ERL 
380 END 
3908 : 
1000 DEF PROCSTAR(X%,Y%,Z%,C%) 
.1919 VDU29,X%;Y%; : GCOLØ,C2 
1020 MOVE-Ø.59*7%,-0.8*7%:MOVEØ, Z3: PLO 
: PLOT85,Ø.59*7%,-9.8*73 => 
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1Ø3Ø  MOVEØ.95*2%,Ø.3*Z%:MOVE-Ø.95*2%, 


Q0.,3*Z$:PLOT85,0,—0.37*2$ 

1040 ENDPROC 

1859 : 

1060 DEF PROCMUSIC 

10780 IF ADVAL(-6)<3 THEN ENDPROC 

1080 READ P%,0%,R%,D% 

1090 IF D%>5ØTHEN PRINTTAB(0,20)P£,Q$?, 
R2, D%: STOP 

1199 IF D%>1THEN112ØELSE SOUNDI, ð, ð, (1 
+3Ø*D%) | 

1118 IF D%=1THEN RESTORE: ENDPROC 

1128 SOUND&201,-15,P$,D$:SOUND&202,-13 
,Q$,D$: SOUND&203,-12,R$,D$ 

1130 ENDPROC 

1135 3 

1140 DEF PROCSHEEP (X%, Y%,H3) 

1150 VDU29,X%;Y%; :E%=4Ø+RND (2Ø) + (13E3) 
DIVY%:F%=E3%/2+RND (19) :L3=11 

1160 XØ%=E%:YØ%=-F%/4:MOVEXØS, YØS 

1170 FOR A=ØT06.3STEPØ. 15: PROCMUS IC 

1189 X%=E%*COSA+E%/L%*COS (A*L%) : Y%=F%* 
SINAtF3/L%*SIN (A*L3) 

1198 GCOLØ,3:MOVEØ,Ø:PLOT85,X%, Y$ 

1200 MOVEX@3 , YØ%:GCOLØ, Ø: DRAWX% , YS 

1210 XØ%=X%:YØ%=Y%: NEXT 

122Ø PROCMUS IC : FORZ%=ØTO16STEP4 

1230 IF Z%=Ø0R Z$-16THEN GCOLØ,ØELSE G 
COLØ , 3 

1240 MOVEØ.65*E%+2%,-9.7*F%:DRAWØ.8*ES 
*2$,-1.4*F$ 

1250 MOVE-0.65*E$-22$,-0.7*F$:DRAW-0.8* 
E2$-2$,—-1.4*F$. 

1260 MOVEH$* (—E$44-22) , Ø: DRAWHS* (-E$-Z 
$),—F$/3 


1270 NEXT: PROCMUS IC 
1280 GCOL0,3:E$-E$-6:F$-F$/2.3 


[Ø 1290 wovEHs* (E%-6) ,F3:MOVEHS* (E$+F3) ,8 


+F%: PLOT85,H%* (E%-6) ,Ø 

1300 PLOT85,H%% (E%+2*F%) ,0:PLOT85,H$*( 
E$+F$) ,-F%: PLOT85,H$% (E%+2*F%) ,-6-F% 
131Ø GCOLØ, Ø: MOVEH3*E3% , FS: DRAWHS* (ES+F 
$) , 8+F3%: DRAWH2* (E$42*F2) , Ø: DRAWHS* (E%+2 
*F%) ,-6-F3: DRAWHS* (E3+F%) ,—F% 
1320 PLOT69,H$* (E$4F$*1.2) ,Ø 
1330 PROCMUSIC:ENDPROC 

1340 s; 

1350 DEF PROCRAY = 
1360 C%=(C%+2) MOD4: GCOLG,C%:VDU29, 300; 
900; 

1370 MOVEØ, Ø: DRAWØ, —18Ø:MOVE2Ø, 10: DRAW 
60,—-100:MOVE-20,10:DRAW-60,-100 

1380 ENDPROC 

1385 : 

1398 REM ** WHILE SHEPHERDS WATCHED ** 
1400 DATA121,101,89,12,137,121,101,18, 
137,121,1Ø1,6,129,117,1Ø1,12,121,1Ø9,89 
712,141,1Ø9,93,12,141,121,1Ø9,12,137,12 
1;,101,12,129,117,101,12,137,121,191, 12; 
149,117,1Ø1,12,149,129,1Ø9,12,145,129,1 
Ø9,12,149,117,1Ø1,36 

1419 DATA137,121,191,12,157,121,93,18, 
149,121,89,6,141,121,93,12,137,121,1Ø1, 
12,129,117,1Ø1,12,121,1Ø9,89,12,117,1Ø5 
,89,12,137,101,89,12,129,117,101,12,121 
,129,89,12,121,109,93,12,117,101,81,12, 
121,1Ø1,89,36,Ø,Ø,9Ø, 1 


mis, ) 


ACORN TUBE SCREENS - Archie Ewing 

If you had a program that used *LOAD or *SAVE to load and save screen memory 
before you purchased your Tube, then you can still load and save screen memory, but 
you need to extend the addresses contained. This means using, say FFFF3000 for modes 
Ø, 1 and 2 instead of 3000 (the FFFF says that the operation is to deal with IO 


processor memory). 
:0.S.PICNAME  FFFFE3000. 


780 users need to extend the command further; viz, **LOAD 
Note that the two ** 


are necessary, as is the drive 


specification. The directory is not an essential requisite. = 
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NEW WAY TO CRASH A BEEB? - M.P. Briggs 


tal n 8 heb eo b eee s e b s a ss 
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On disc systems try DIM A$(1,1,1,1,1,1,1,1,1,1,1,1), that's 12 of them, or 


for tape systems use 14. 
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RESERVING BASIC II MEMORY 
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If you are using Basic II and wish to reserve up to 255 bytes of memory when 
programming in assembler, then you can use the EQUS pseudo command, like this: 


«memory EQUS STRINGS (amount ,CHRS@) 
This also ensures that the memory is cleared to a specific value 
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With Christmas looming, the ever present problem is here again. We 
look at a range Of suitable stocking fillers in the book world. 


Presents for relatives, loved ones, or even yourself. 


Sounds like a wonderful idea for a 
book, doesn't it? One book filled the 
answers to all those little problems 


that you always come across when 
writing programs. Unfortunately it's 
not quite like that. 


There are about seventy procedures 
and functions in this book. Some of 
them are truly useful - they give you 
ideas on how to solve trivial problems 
that are holding up an entire program. 
None of them are really worth typing in 
as they stand. There is just too much 
padding. Most would be more suited as 
one liners to incorporate in programs, 
rather than going to all the trouble of 
a procedure or function. 


Some of the programming techniques 
are downright sloppy - time delays 
using FOR...NEXT loops. Tut tut. 


There are other problems with this 
book too. The actual program listings 
are not wonderful. They're rather feint 
and tatty looking; a great contrast 
from the clear text and good quality 
paper. More important is the lack of a 
useful index. You're not going to read 
through this book. It is a reference 
work and the need for an index is 
clear. However, all that is provided is 
an alphabetic list of the 
procedure/function names along with 
their applications. Surely an 
alphabetic list of the applications 
with the choice of program against each 
would have been more useful. 


It's a nice idea, but I'm not B 
impressed with the result. 


This is yet another new book from 
Granada, this time concentrating on 
programs for more serious applications. 


The book contains listings of 14 
complete programs with comprehensive 
notes on their use and application but 
little about the programs themselves. 
Clearly the book is aimed at those 
trying to find useful tasks for their 
micro rather than those who want to- 
learn programming techniques. This is 
an excellent aim, although I do not 
feel entirely convinced by some of the 
results. 


The chapters, and programs, dealing 
with cashflow, stock control, accounts 
and information retrieval are sensible 
if limited approaches to applications 
that many may find useful. Many of the 
other applications such as tipster, pie 
charts, quiz, phone call coster (!) etc 
seem to be of much more dubious value. 
The problem with many of the 
applications dealt with here is not 
that the application itself is silly, 
but that it can only be looked at in a 
quite trivial way by short programs 
listed in a book. That is why people 
are prepared to spend tens if not 
hundreds of pounds on software for such 
applications. 
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in One or more of the applications 
covered by this book, then you will 
find the relevant sections interesting 
and useful, particularly if you have 
the programming skills to develop the 
printed programs into something really 
worthwhile. If you are looking for a 
ready made solution to a problem then 
you would be better off putting the 
money towards a good quality software 
package. 


SKE 
SS 
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These two books each contain about 
thirty programs, mostly of about 100 
lines. As such they are pretty good 
value. Although the title says that all 
the programs are games this is not so. 
Some are amusing graphics displays, 
something similar to the type that 
you'll find occasionally in Beebug, and 
others demonstrations of features of 
the Beeb. 


There is even a chapter, in both 
books, about how to write your own 
programs and another giving a limited 
glossary of computer terms. These are 
only so much padding, especially as 
they appear identically in each book. 
The 'subject of writing programs is gone 
into in more detail and better in other 
books. Let's keep to the title. 


All the games are simple. This is an 
advantage. A book with thirty odd 500 
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line games may be very clever but is 
also rather daunting. These programs 
are short and sharp. The games are 
either thought games, such as Nim and a 
reaction tester, or very simple action 
games ('arcade' is too much an 
exaggeration). The action games are 
typically: simple invaders, frogger, 
and the like. 


None of these is going to make the 
local arcade fearful for its profits, 
but they do cram a reasonable amount of 
entertainment into a very few program 
lines. These books would make great 
Christmas presents for the very new 
owner of a BBC micro. It's only a 
shame, really, that the titles could 
not have been more accurate. 


Although first published some months 
ago, the prospect of 21 games for your 
BBC micro at an equivalent price of 3Øp 
each (approximately) is obviously still 
attractive, particularly at this time 
of year. So let's see how good these 
games are. The introduction to the book 
also claims that the programs are 
intended to improve the reader's 
knowledge and use of Basic, so the 
design and structure of the programs 
must also be considered. 


. The book itself is generally well 
produced, the printing including that 
of the program listings is clear and 
readable, and the screen shots of the 
various games have reproduced well (in 
black and white) though it is sometimes 
difficult to make much of the display 
without reading the text as well. 


If you expect dynamic, action 
packed arcade games, sophisticated 
thought and logic puzzles or engrossing 
adventure games you will be 
disappointed. You would probably get 
better value for money by buying a 
single commercial game program On 


cassette. Despite this the games are 
varied, if somewhat dated now (noughts 
and crosses, space invaders, horse 
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racing) and still offer plenty of good, 
cheap fun for those who are still 
comparatively new to computing. Most of 
the programs are of a reasonable 
length, so not too much effort is 
needed before you can start playing. 


AS examples of good programming 
technique ` though, these ` programs 
certainly leave a lot to be desired, 
and indeed one might well suspect that 
many of these games have been converted 
rather badly from versions written in 
much more primitive dialects of Basic 
than that on the BBC micro. Frequent 
use is made of GOSUB, and not a little 
of GOTO as well, leading to programs 
that are difficult to follow, 
resembling the proverbial plate of 
Spaghetti in the convoluted twists and 
jumps involved. 


I would not recommend this book as 
any way to learn good programming and I 
am only moderately enthusiastic about 
the games, which now seem rather 
outdated. 


I was more impressed by this book 
than I had expected to be. This is one 
of the most recent books from the 
Granada stable for the BBC micro and it 
shows. The production and presentation 


is excellent and the program listings 
are amongst the best I have seen for 
Clarity of printing. Equally, the 
authors have exploited all the best 
features of BBC Basic to present well 
designed and structured programs of 
excellent quality. 


The purpose of this book is to show 
those who have already learnt the 
rudiments of Basic programming how to 
write good games programs. employing 
animated graphics. Many useful 
techniques are developed in the course 
of presenting a total of six complete 
computer games and the authors have not 
been frightened to introduce sections 
of machine code where this is 
appropriate. Anyone who is keen to 
develop their own computer ` games 
should read this book, but it will have 
less to offer those who are just 
looking for a book of listings. = 


COMPACT FUNCTION KEY DEFINITIONS 
The compact definition for the keyword 'AND' should be entered as |! |G and not 
simply as described in the original article in BEEBUG Vol.2 No.9. We were also wrong 
in the update published in BEEBUG Vol.3 No.5 when we said that the additional 
keywords described required two bytes of memory. Despite the extra characters typed, 
ail the keywords occupy only one byte each in the function key buffer. Our thanks to 
Mr J.P.Jakubovics for pointing these facts out. z 


MULTI-SCREEN SLIDE SHOW (BEEBUG Vol.3 No.3) 


If you want to use this program to display screens produced using the BEEBUGSOFT 
Teletext Editor you will need to change the load address for each saved display to 


&7CØØ. This can be achieved using *LOAD and 


*SAVE (loading the screen display to 


memory and then re-saving), or by using the Disc Snarfer program from BEEBUG Vol.2 


BEEBUG 
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and 46% by N. Silver 

To keep you amused over the Christmas break, this pag 
three complete and challenging games. These games will certainly 
provide plenty of fun and frustration. Furthermore, each program is 
written as a single line of Basic, and shows how much can be 
achieved in such a short space. 

The three programs listed here are The second game is very similar to 
examples of what can be achieved by the ` game 'Truffle — Hunt' that we 
using only one line of Basic. Here the published in BEEBUG Vol. 3 No.2. The 
programs are extensively abbreviated SO object of the game is, with the 'Z' and 
that the line will fit into Basic's "X' keys, to guide your ‘snout' up th 
keyboard buffer. Because of this, ZZ STF 
you cannot edit a LISTed version, JJ 


EN ke on a p M o nl 
to tape/disc initially. This can be |18-0:X-640:Y-0:MO.5:F.I-1T050:V.5, 18; 1, 
achieved as follows: | 25, 4, RND (1270) ?RND (1923) ; 42,18; 2,9,9,12 
| 4,18; 3:N. s REP. PL. 69, X, Y DR. X48, Y: X-X48* 
| (INKEY-98-INKEY-67) : X= (X*1280)MOD1280:Y 
|-Y-4:YsY MOD1Ø24:P=PO.X,Y) :S=S—(P=2) :U. 


*SPOOL PROGRAM 
type in program 


* SPOOL | (1ANDP) 21:V. 7, 4: P. SSREP.U. INKEY-99: RUN 

Run the program. If there are any screen, and to devour as many of the 
errors, *EXEC PROGRAM (rewinding your yellow truffles as you can. As you move, 
tape if necessary) and correct them on avoid the red poisonous mushrooms 


this version. Once the rogram is however, as these prove fatal within 


SJ PJ yy | microseconds! Your 'snout' will 


| | re-appear at the bottom of the 


| 1L=Ø: REP. L=L+3:MO. 4: DR. 1279 ,0: DR. 1279,4 | Y you wander too far. 

| 52:MOVE1279,572:DR.1279,1Ø23:DR.Ø,1Ø23: | 5 

|F. I-l1TOL:V.31,RND(32) t5, RND(31) , 42, 30: 
| „3 P. (L-3) /3:X-0: Y2512: REP. PL. 69, X, Y:X 
| +4: Y=Y- (INKEY-74+.5) *8:U. PO. X, Y) -1ORX 
| 280:U.XX1280:V. 7: REP.U. INKEY-99: RUN 


| The final game is a treasure hunt. 
} Using the standard keys ('Z', 'X' 
for left and right, '/' and ':' for 
up and down), guide a small pirate 


| — d (the '*') around the screen. Two 
working, it can be SAVEd in the normal numbers are displayed at the top of the 


uo H 


manner. With each of the three games, screen. The first indicates the number 
you should press the space bar to of moves your 


restart at the end of a game. 


The first game (called  'Asterisk 


T k 3 . 1 1 f Æ á £ L 

racker') is a very simple game iT | 16s=778:X=20:Y=11:S=g:D=0:A=RND (4Ø) -1: 

which you have to guide a ‘snake | -BND (11) :MO. 7: REP.C= KER i | 

across the screen, whilst avoiding |W EN C-INKEY9:X-X* (C=9Ø) -( | 

the stars. As the | C=88) : X= (X+4Ø) MOD4Ø: Y=Y+ (C758) - (C747) : Y 
e , game progresses, |. 

i . | = (Y+22) MOD23+1 : S=S+SGNINS ."ZX/:" CHRSC) 
more and more stars will be | :D-SQR (ABS (A-X) ^2+ABS Kk 
displayed, and the ease of the game E D:V.31.X 7 E e NE 
rapidly disappears. The Return key FE ne :U.D=0:V, T: REP, U. GET-32 
guides the 'snake' upwards, but it d 


moves down if Return is not pressed. pirate has made, and the 


second the 


Aim your 'snake' for the gap in the far distance that you are away from the 
wall, and don't touch any objects as object. You should use this number to 
this causes instant death from space home in on the treasure, and upon 
acid poisoning! success a short bleep will sound. = 
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The ` description 


by Alan Dickinson 


in the User Guide 


intriguingly describes PLOT codes 32-63 and 88-255 as reserved for 
future expansions. Alan Dickinson shows how to do this yourself 
using simple machine code routines to build new PLOT instructions 
which provide additional graphics functions of your own choice. 


Circles? Software sprites? Who knows 
what Acorn are plotting, (in fact PLOT 
codes 56-63 have now been used in 0.S. 
1.2.), but we do have some clues as to 
how these extensions might be 
implemented. Using these spare codes 
enables us to implement additional PLOT 
instructions which can then be used in 
any Basic program. Each new function 
has to be written as.a machine code 
routine, but this is not difficult as 
the example shows. 


There is a little known vector at 
RAM address &226, and the system 
performs an indirect jump via this 
vector whenever an unrecognised VDU 
command is used; that is when an 
unrecognised PLOT number is used, or a 
PLOT command is used in a non-graphics 
mode, or a VDU23 command is used to 
reprogram characters in the range 2-31. 
Remember that PLOT is exactly 
equivalent to VDU 25 (see page 378 in 
the User Guide). The 'Carry' flag is 
clear for PLOT commands, and set for 
VDU23 commands, so that we can 
distinguish between the two. For VDU23 
commands, the accumulator contains the 
character number and locations 
&31C-&323 contain the eight 
re-definition bytes. 


Following an unrecognised PLOT 
number, the system converts the X and Y 
coordinates into internal coordinates, 
taking into account the graphics 
origin, and whether the  PLOT command 
was using absolute or relative screen 
coordinates. These internal coordinates 
are stored in locations &320-&323. The 
experienced machine-code programmer 
could make use of this data to produce 
some very specialised screen output. In 
the example program, PLOTextend, I have 
kept things simple, and used OSWORD to 
convert them back to screen coordinates 
so it should be obvious what the PLOT 
commands are doing. As a result this 
routine is not as fast as it could be. 
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new set of PLOT 
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PLOTextend allows the PLOT numbers 
248-255 to PLOT rectangles between the 


last point visited and the point 
specified in the PLOT command. 
Depending on the PLOT number, the 
rectangle may be a solid outline, a 
dotted outline, or a filled shape. Like 
all the resident PLOT commands, it is 
limited to the graphics window, and 
obeys the actions specified by GCOL 
commands. For such a simple graphic it 
is scarcely worth writing an intercept 
routine. However, if you were writing a 
fast and complex routine, perhaps with 
direct screen addressing, then the PLOT 
command provides a very neat and 
powerful interface. 


For more information on vectors not 
documented in the User Guide, see the 
excellent Advanced User Guide, by Bray, 
Dickens, and Holmes. Section 18.8 on 
page 261 describes the VDU (and PLOT) 
extension vector, known as VDUV, while 
section 11.4 from page 274 onwards 
describes the memory locations used to 
store the various graphics coordinates 
used in implementing PLOT and other VDU 
instructions. 


The program PLOTex tend shows how a 
instructions can be 
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implemented and this serves as a model 


for any similar extensions that you 
might program yourself. The program is 
described in the following notes though 
you might like to just type the program 
in (you can omit all the comments) and 
run it for the sake of its fascinating 


visual display. 


PROGRAM NOTES ! 
— The program PLOTextend contains 
extensive comments and if you work 
through the program you should have no 
problem in understanding what each 
section does. These notes supplement 
the comments and provide some 
additional information. 


The program consists of the machine 


code routine that implements the new. 


PLOT instructions (contained in the 
procedure PROCassemble) and a Basic 
routine (contained in the procedure 
PROCdemo) to illustrate the use of the 
newly defined PLOT instructions. 


The start of the program reserves 
the memory used by the machine code and 
initialises some important variables. 
The memory areas are allocated 


dynamically by the DIM statements in 
lines 370-400 . They are as follows: 


The location of these memory areas 
is not at all critical. The size of the 
memory area used for the machine code 
need only be sufficient for the routine 
being implemented. | 


The following few lines in the 
program assign the correct addresses 
for the two 0.8. routines OSWORD and 
OSWRCH, and the default address for the 
VDUV vector (&FFA6). This. is the 
address normally stored as the VDUV 
vector, and the new routines are 


programmed so that on exit, a jump is ` 


made to this default address. These 
assignments are not essential but the 


use of names rather than hexadecimal 
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numbers 


leads to a more readable 
program. | Ps | | | 


The main program is quite short, 


"from lines 480 to 540. This assembles 


the machine code, assigns the start 
address of the machine code to the 
vector address &226 (in place of the 
default &FFA6), and then calls the 
demonstration procedure. 


The machine code is well documented 
and almost self-explanatory. The PLOT 


number is in the accumulator and it is 
this which is temporarily stored at 


address 'a' for later use. A number of 
checks take place at the start of the 
machine code before the graphics 
routine proper is entered. Note how the 
subroutines  'plot4', 'plot5', '"plot2l' 
and 'plot85' implement the equivalent 
Basic PLOT instruction, while the 
subroutines 'xl', 'yl', 'x2' and 'y2' 
output the appropriate X and Y 
coordinates as required. At any time an 
exit is made from the routine it is 
done by the instruction JMP vduv. 


The demonstration program in Basic 
is visually quite interesting as well 
as illustrating the use of the new PLOT 
instructions. It first displays the 
different types of rectangles to be 
drawn, then builds up a display of 
random rectangles, and finally produces 
a sequence of rapidly changing patterns 
based again on rectangles. All in all, 
this is a most impressive display of 
the new PLOT instructions implemented 
by this program. 


Having seen how a new set of PLOT 
instructions may be implemented you 
should now be able to develop other 
PLOT functions of your own choice. 


hann EDD DG 


10 REM PROGRAM PLOTE 

20 REM VERSION BØ.3 

30 REM AUTHOR Alan Dickinson 

4Q REM BEEBUG DECEMBER 1984 

50 REM PROGRAM SUBJECT TO COPYRIGHT 


100 ON ERROR GOTO 2950 

118 REM GRAPHICS EXTENSION 

120 REM ------------------ 

130 REM This routine shows how to 
140 REM extend the PLOT commands 

150 REM available by inserting a 

160 REM hine code routine via == 
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17Ø 
18Ø 
19Ø 
2ØØ 
21Ø 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
419 
420 
430 
440 
459 
460 
470 
480 
490 
Søg 
51Ø 
52Ø 
53Ø 
54Ø 
55Ø 
1000 
1919 
1020 
1838 
1Ø4Ø 
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REM the vector VDUV, 


REM 

REM Vector VDUV is invoked for 
REM VDU23,n commands when n is 
REM in the range 2-31, or for 


REM PLOTn commands where n is an 


REM unimplemented function. 
REM 

REM These routines all draw 
REM rectangles between the 
REM last point plotted and 
REM the coordinate specifed 
REM in the PLOT command, but 
REM more elaborate code could 
REM easily be inserted. 

REM 

REM PLOT248-251 relative 

REM PLOT252-255 absolute 

REM —--—-----7----—--------2--2----- 
DIM mc 512 

DIM vduv 2 

DIM pblock 16 

DIM a 1 


o 
o 


osword=&FFF 1 
oswrch=&FFEE 


o 
o 


vduv?Ø=&A6 
vduv?1=&FF 


o 
o 


FOR opt%=Ø TO 3 STEP 3 
PROCassemble 

NEXT 

?&226=mc MOD 256 
2&227=mc DIV 256 

MODE 1 : PROCdemo 

END 


o 
@ 


DEF PROCassemble 
$-mc 
[OPT opt$ 


N Carry flag gives 


1059 
1969 
19070 
1989 
1899 
1190 
1118 
1120 
1130 
1149 
1150 
1169 
11760 
11898 
1199 
1200 
1218 
1220 
12308 
1249 
125Ø 
1260 
1270 
1280 
12968 
1389 
1318 
13260 
1338 
1340 
13560 
1360 
13798 
1389 
1390 
1400 
1418 
1420 
1430 
1449 
145Ø 
146Ø 
1470 
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N reason for entry. 
N Flag SET = VDU23,n 
N Flag CLR = PLOTn 
BCC labl 

JMP vduv 

.labl 


> 
o 


N Accum contains the 
N PLOT number of the 
N unrecognised PLOT 
N command. 

STA a 

AND #&F8 

CMP #&F8 

BEQ lab2 

JMP vduv 


.lab2 


o 
o 


N The routine does not 
N do anything in the 
N non-graphic modes. 
LDA &361 

CMP #Ø 

BNE lab3 

JMP vduv 


.lab3 


N &320-3 contain the 

N PLOT coordinates in 
N pixels. These are 

N copied to &314-7, the 
N last-point store. 

LDA &320:STA &314 

LDA &321:STA &315 

LDA &322:STA &316 

LDA &323:STA &317 
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148Ø 
1499 
1509 
1519 
1520 
1539 
1549 
1550 
1569 
1579 
158Ø 
159Ø 
1609 
1619 
1620 
1639 
1640 
1659 


1660 


1670 
1686 
1690 
1700 
1718 
1720 
1730 
1740 
1759 
1760 
1770 
1780 
1799 
1890 
1819 
1820 
1830 
1840 
1850 
1860 
1879 
1889 
189Ø 
1989 
1918 
19260 
19398 
1949 
195Ø 
196Ø 
197Ø 
1989 
1999 
2000 
2019 
2020 
2030 
2040 
2050 
2060 
20760 
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N OSWORD &D returns the mE 2080 


N current point and last 2099 

N point in screen units 2100 
N which is convenient for 2119 

N use in OSWRCH commands. 212Ø 
° 213Ø 

LDX#pblock MOD 256 2140 

LDYipblock DIV 256 2150 

LDA#&D 216Ø 

JSR osword 2179 
: 2189 

N The type of draw to 2190 

N be used is obtained 2200 

N from the bottom 2 2210 

N bits of the PLOT num. 2220 

N 223Ø 

N Ø - line 2249 

N I - dotted line ` 2250 

N 2 - solid box 2260 

N 3 - line 2270 
: 228Ø 

LDA a 229Ø 

AND #&Ø3 2300 

CMP #Ø:BEQ line . 2310 

CMP #1:BEQ dotted 2320 

CMP #2:BEQ solid 2330 

JMP line 2340 ` 
: 2350 
.line 2369 

JSR plot4:JSR xl:JSR yl 2370 

JSR plot5:JSR x1:JSR y2 2380 

JSR plot5:JSR x2:JSR y2 2390 
JSR plot5:JSR x2:JSR yl 2400 

JSR plot5:JSR x1:JSR yl 2410 

RTS 2420 

: |. 2430 

.dotted 2440 

JSR plot4:JSR x1:JSR yl 2459 

JSR plot21:JSR xl:JSR y2 2460 

JSR plot21:JSR x2:JSR y2 2470 

JSR plot21:JSR x2:JSR yl | 2480 

JSR plot21:JSR xl:JSR yl 2490 
RTS 2500 

: 2519 

solid 2520 
JSR plot4:JSR x2:JSR y2 2530 
JSR plot4:JSR x2:JSR yl 2540 
JSR plot85:JSR xl:JSR yl 2550 

JSR plot4:JSR x1:JSR y2 2560 

JSR plot85:JSR x2:JSR y2 2579 

JSR plot5:JSR x1:JSR yl 2580 
RTS 2590 

: 2600 
.plot4 2619 
LDA#25:JSR oswrch 2620 
LDA#4 :JSR oswrch 2630 
RTS 2640 
: | 2650 
.plot5 2660 
LDA#25:JSR oswrch 2678 
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LDA#5 :JSR oswrch 
RTS 


o 
9 


.plot2l 

LDA$25:JSR oswrch 
LDA$21:JSR oswrch 

RTS 

.plot85 

LDA$25:JSR oswrch 
LDA#85:JSR oswrch 

RTS 

Xl 

LDA pblock+Ø:JSR oswrch 
LDA pblock+1:JSR oswrch 
RTS 


yl 

LDA pblock+2:JSR oswrch 
LDA pblock+3:JSR oswrch 
RTS 

«X4 

LDA pblock+4:JSR oswrch 
LDA pblock+5:JSR oswrch 
RTS 

ave 

LDA pblock+6:JSR oswrch 
LDA pblock+7:JSR oswrch 
RTS 


Sn 00 


ENDPROC 


bd 


DEFPROCdemo :VDU23,1;0;0;0;0; 


MOVE32 , 32 

FOR j$-248 TO 251 
PLOT 33,200,200 
NEXT 


TIME=@: REPEAT UNTIL TIME>5ØØ 


FOR j$-1 TO 500 
GCOLØ, RND (3) 
X%=RND (1279) 
Y$-RND (1923) 
$-RND (32) *8 
PS=RND (4) +247 
MOVE X%,Y%:PLOT P$,-S$,-S$ 
NEXT 


CLS 
FOR Y%=Ø TO 1023 STEP 128 
FOR X%=Ø TO 1279 STEP 128 
GCOL£ , RND (3) 
$-RND (12) +4 
FOR k$-0 TO 128 STEP S% 
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2680 MOVEXS , 
2690 NEXT 
2700 NEXT 
2710 NEXT 


2720  GCOL0,3:MOVEQ,0:PLOT255,1279,1023 


2740  TIME-Ü:REPEAT UNTIL TIME-500 


2760 REPEAT 

2770 CLS 

2780 | GCOL3,RND(3) 

2790 | X$-640:x$-X$ 

2800 Y$-512:y$-Y$ 

2810  dx%=RND (24) +8 
2820 dy%=RND(24)+8 
2830  P%=251+RND (2) 


Y$: PLOT247+RND (2) ,k$ , k$ 


2840 FOR j$-1 TO 4090 

2850 X$-X$9tdx$:Y$-Y$tdy$ 

2869 x$-x$-dx$:y$-y$-dy$ 

2870 MOVEx$,y$:PLOT P%,X%,Y% 
2889 IF X$>1279 OR X%<Ø dx$--dx$ 
2890 IF Y%>1Ø23 OR Y%<Ø dy$--dy$ 
2900 NEXT 

2910 CLS 

2920 UNTIL FALSE 

2930 ENDPROC 

2940 : 

2950 ON ERROR OFF 

2960 MODE 7:IF ERR-17 END 

2970  REPORT:PRINT" at line ";ERL 
2980 END 


YET ANOTHER ROM BOARD 

Too late to appear in the review in 
this issue, Micro-Z has released an 
external ROM board for the Beeb. 
Micro-Z claims that this is the first 
software addressable external ROM 
board, meaning that the ROM in 
operation is selected with the normal 
*FX command and not using a mechanical 
switch as other external boards do. 
Connections to the Beeb are made via a 
small internal board that is plugged 
into the processor socket in the Beeb 
which also takes the displaced 6502. 
The external ROM board also features an 
expansion socket for further Micro-Z 
products. These are to include further 
ROM expansion (available now), RAM 
expansion and an Eprom 
eraser/programmer (available early 
1985). The ROM board costs £59.95 incl 
VAT. Micro-Z is on Ø392-73662. 


PUTTING THE P INTO SECOND PROCESSOR 

— The popular operating system,  UCSDp 
is now available on the BBC micro 
equipped with dual disk drives and a 
6502 second processor. Developed by 
TDI, of Bristol, and Acornsoft the 
P-system includes compilers and 
utilities for both UCSDp Pascal and 
Fortran. The complete package will cost 
you £299, Acornsoft is on 9223-316039. 


OF MICE AND MICROS 

Advanced Memory Systems, one of the 
first producers of 3.5 in discs for the 
Beeb has followed another trend with 
the launch of a mouse and graphics 


package for the BBC micro. The AmX 
mouse is a hand held pointing device 
that is moved around the desk top next 
to your micro to move a cursor around 
the screen. The mouse also includes 
three buttons to select actions. The 
ArtworX graphics package makes use of 
the mouse to produce pictures on your 
BBC micro's screen with the minimum of 
effort. ArtworX has such features as 
pull down menus, shading, and so on. It 
bares more than a passing resemblance 
to the highly acclaimed graphics 
package for the Apple Macintosh, a 
machine costing a little under £2009. 
AmX and ArtworX are more modest at just 
£98 incl. VAT for the pair. Further 
details from AMS on 0925-602699. 


QUICK ON THE DRAW 

` A low cost CAD system is the claim 
of Ibbotsons Design Software for their 
DDX package. Costing only £99.95, DDX 
uses the Beeb in conjunction with disc 
drives and a Grafpad graphics tablet to 
produce plans and as a design tool. As 
well as offering the generation and 
Storage of digitised pictures,  DDX 
features the easy generation of circle, 
ellipses, and cross hatching. Further 
details from Ibbotsons on Ø77-389 658. 


ELITIST CLAIMS 


Just two weeks after its launch, 
Acornsoft's Elite game (reviewed in 
BEEBUG Vol.3 No.6) has sold over 13,0900 
copies, Acorn claims. By the time that 
you read this, Acorn expect to have 
around 100,000 would-be Elitists glued 


to their Screens, =] 
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When Mount Crona (think about it) 
erupts, there are four people stuck on 
the hillside just dying to be rescued. 
Fortunately you happen to have a 
helicopter handy for that purpose. 


The idea is to pick up each of the 
men in turn, before the lava flows 
reach him, and take him to the safety 
of your (apparently fireproof) 
helicopter base on the other side of 
the mountain. This would be easy were 
it not for a few difficulties that 
nature and Acornsoft put in your way. 


Firstly the men can only hang on to 
the helicopter for a short time. You 
have to return to base as quickly as 
possible. This isn't easy as there are 
boulders exploding out of the volcano. 
These are not conducive to good flying. 
It is just as well that your helicopter 
is equipped with a boulder-blasting 
gun. More tricky are the ghosts. If one 
of the four men to be rescued dies 
(from falling or lava) then he turns 
into an indestructible, and 
understandably annoyed, ghost. 
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Volcano is a very catchy game. The 
graphics are as quick and smooth as 
we've come to expect from Acornsoft. 
Not a blockbuster, but it should run. 


The eighth voyage of Sinbad leaves a 
lot to be desired when compared to the 
first celluloid seven. This game is 
certainly original. That is to say 
no-one else has bothered to waste time 
on such an idea. 


First the scenario. This is going to 
sound stupid, but here goes anyway. You 
are presented with Sinbad's flying 
carpet swooping around the screen 
trailing a rope ladder. Also buzzing 
around are several malevolent life 
forms. You must jump Sinbad onto the 
ladder so that he touches these 'life 
forms' and converts them to peaceful 
Ways. If he touches one already 
converted he falls off the ladder. 


When all that is done it's off for a 
quick trip through an asteroid storm. 
If you manage to steer him through that 
with the awful controls provided, then 
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you go back to square one with the 


addition of different life forms and 
other things like spiders. 


Virgin has described this game 


Another original game, this one, but 
this time well worth the trouble. 


The monkeys have kidnapped 
(roo-napped?) the baby wallaby and you 
have to help dad (or mum; it's hard to 
tell) to rescue it. The baby wallaby is 
held in a cage at the top of the 
screen. Up and down the sides and along 
the various levels, ferocious apple 
core throwing monkeys roam. These must 
be avoided as you climb the ladders and 
hop over the gaps. Fortunately you are 
equipped with a powerful punch that can 
dispatch a monkey very nicely to his 
death. 


Just to add to the excitement there 
are whole apples to gather on the way 
to give you extra points. No sooner 
have you rescued the bouncing baby 
than the whole palaver starts again in 
a more tricky jungle clearing. 


Wallaby is a delight to play. The 
graphics are excellent, smooth, and 
cute. The basic idea of climbing 


ladders and avoiding adversaries isn't 
new but that doesn't seem to matter. 


Matilda would have waltzed with joy at 
this one. 
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Swag is a brand new one or two 
player game for the BBC micro featuring 
mode 2 multi-coloured graphics and a 
practice feature where you can play 
against the computer. 


The game of Swag involves you 
pitting your wits against the other 
player to become the first person to 
steal £250,000 in diamonds. There are 
Several killer droids that try to 
hamper you in your task of stealing the 
diamonds. You can also shoot at police 
cars, but this has the effect of making 
them angry (the police not the cars), 
and they then give chase (giving extra 
money to your opponent). Apparently the 
only way you can stop these police cars 
from chasing you is by "...drinking a 
can of bear..."! (is this a sly advert 
for a famous lager or just a misprint 
by Micro Power?) 


Overall Swag is a very hectic and 
enjoyable game with a lot of shooting 
and action and, at £6.95, gives good 
value for money. 


At last, an arcade game with no 
lasers! Super Pool is a simulation of 
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It's a scaled down version of the 


real game with just one white cue ball 
and six coloured balls numbered from 1 
to 6. 


The object of the game is first to 
pot all the balls. To do this you are 


allowed 6Ø seconds for each shot. Each 
time you pocket one of the balls, you 
gain a number of points and these 
points can be increased if you pot 
another ball in the same pocket. After 
potting the first six balls, you 
proceed to level two, where you have to 
pot the balls in order, and then level 
three where the balls have to be both 
hit and potted in order. 


To play the game you have to 
position a target around the table, 
moving it clockwise or anticlockwise. 
Then you choose the strength of the cue 
ball, signified by a horizontal bar at 
the top of the screen and when you are 
ready, release the cue ball which heads 
towards the target. 


The game features excellent 
graphics, and is both smooth and 
realistic. This is an excellent example 
of what can be achieved on a BBC micro 
with games such as snooker and pool, 
and is highly recommended if you fancy 
a break from the 'zapping' noises of 
other games. 


Mr.Ee is an excellent version of the 
arcade game Mr.Do, and must rate as one 
of Micro Powers' best releases yet. 
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In the game you take the part of a 
wizard whose job it is to collect all 
of the cherries in the  orchard. 
Unfortunately there are angry 'Umphs' 
on the rampage which will try to stop 
you from doing this. To kill the Umphs 
you can throw your magical crystal ball 


-at them, hoping that it will bounce 


around the orchard and kill One of 
them, or you can crush them with apples 
which fall down when the ground 
underneath is dug away. 


` Mr.Ee features ten different screens 
and has an awful lot happening at once, 
although, understandably, the game 
slows down when there are eight Umphs 
and various other creatures on the 
screen. 


If you are looking for one special 
game this Christmas, then you should 
seriously consider this one. Although 
there is no high score table in the 
game (due to the amount of memory 
needed), this shouldn't spoil your 
enjoyment of such a good game. 


Boxer is an arcade style game from 
Acornsoft of an original nature (I'm 
sure I've heard the various sounds and 
noises somewhere before, though!). In 


Boxer, you play the part of an 
energetic and robust idiot who leaps 
around a gym attempting to catch five 
balloons from the poor  damsel in 
distress with the aim of winning her 
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affection from the other character in 
the plot, the baddy. 


Although described as "fast moving", 
Boxer does not feature particularly 
fast graphics, and provided a few hours 
of frustration before I was able to 
tolerate the slow response of the game. 
The graphics themselves are quite 


by C.J. 


Dawson 


In BEEBUG Vol.3 No.3 we published a. machine code utility that 


attractive, but I don't think these use 
the available colours as well as they 
could. 


Boxer is an average game that will 


appeal to some, and create a sense of 
loathing in others; see it before you 


buy it! 
Ez 


ie 


allowed you to print a file whilst carrying on with some other task. 
The original version did not allow files to be printed from within 
Wordwise but we have now overcome this with the update described 


here. 


The major part of this update is 
concerned with allowing the use of the 


spooler from within Wordwise. This is 
achieved by taking the original 
listing, and adding the extra lines 


below, replacing old lines with the new 
if necessary. A number of comments are 
included in the program, but these may 
be omitted if you wish when you type 
the program in. 


The spooler also now contains a 
modification to cater for one of the 
peculiarities of Wordwise. Whenever 


Wordwise prepares a file with option 8 
(spool), it inserts &@2 bytes for all 
of the control codes present within the 
text file. The updated spooler now 
checks for these, and sends out a null 
(&ØØ) byte whenever it encounters an 
&02. If Wordwise generates one of its 
own errors (markers or room error), 
then the spooler will stop operating. 
This is unavoidable, and is due to the 
way in which Wordwise works. 


There is also now a check for a "£" 
character, and the user is able to 
Select the character sent to the 
printer if this is found. Lines 2714 
and 2885 should be altered to cater for 
your own printer. As it stands, it is 
tailored to a Shinwa printer, but the 
table below will allow you to configure 
the program to your own requirements. 


One of the limitations of the 
spooler is that it cannot cope with 
View, 


Wordwise and Basic listings if 
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there are any extra codes included such 


as formatting codes or Basic tokens. 
The way to over come this is to spool 
out the text to a file, and to print 
that file. With Basic this is simply 
achieved by using the *SPOOL command 
before listing. This creates a file of 
pure ASCII codes which can be printed 
with no problems. Wordwise provides a 
spool option, and this works quite well 
(apart from the &Ø2 byte catered for by 
the update). With View, you need to 
type *SPOOL and a file name, then 
SCREEN the appropriate file and *SPOOL 
again. Having done this you will have a 
file containing the text correctly 
formatted, but there will also be the 
View command mode information. If you 
wish to delete this, you need to type 
in NEW, READ filename, delete the 
unwanted ` headings, and then ` SAVE 


filename. The file can then be printed 
using the spooler. 
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35 REM UPDATES C.J.Dawson. 
160 PRINT"Use *SAVE SPOOLER ";^code;" 
"n.:7(p$47);" ";^(codet&26) 
200 IF code=&9ØØ PRINT"*SPOOLER calls 

the spooler from disc." ELSE PRINT"*RU 
N SPOOLER calls from tape" 

1885 OSFINDV-&21C:OSBGETV-&216: OSBPUTV 
=&218 

1225 temposfindv=code+24:temposbgetv=c 
ode426: temposbputvscode-*28:spoolflag-co 
de+3Ø 

1320 P%=code+&26 

1351 LDA #@:STA spoolflag 

1352 LDA OSBGETV:STA newosbgetvl+l:LDA 
OSBGETV+1:STA newosbgetvl+2 

1354 LDA OSBPUTV:STA newosbputvl+1:LDA 
OSBPUTV+1:STA newosbputvl+2 

161Ø LDA#7:JSR&FFE3: RTS 

1811 LDA OSFINDV:STA temposfindv:LDA O 
SFINDV+1:STA temposfindv+1 \ Set osfind 
vector 

1812 LDA #newosfind MOD 256:STA OSFIND 
- VeLDA #newosfind DIV 256:STA OSFINDV+1 

1813 LDA OSBGETV:STA temposbgetv:LDA O 
SBGETV+1:STA temposbgetv+l \ Set osbget 

vector 

1814 LDA# newosbgetv MOD 256:STA OSBGE 
TV:LDA# newosbgetv DIV 256:STA OSBGETV+1 

1815 LDA OSBPUTV:STA temposbputv:LDA O 
SBPUTV+1:STA temposbputv+l \ Set osbput 
vector 

1816 LDA #newosbputv MOD 256:STA OSBPU 
TV:LDA #newosbputv DIV 256:STA OSBPUTV+1 

2000 BEQ via:JMP exit 

2020 .via LDA ifr N Check printer flag 

2040 BNE spooltest:JMP exit N If not, 
done 

2045 .spooltest LDA#Ø:CMP spoolflag:BE 
Q disable:JMP printit N See text 

2050 .disable 

2298 N Event 4 always disabled 

2300 SEI \ Block interrupts 


ULA OR SEMI-CUSTOM CHIP? 
Acorn have recently started 


2302 LDA temposfindv 

2304 STA OSFINDV 

2306 LDA temposfindv+1 

2308 STA OSFINDV+1 

2412 LDA temposbgetv:STA OSBGETV:LDA t 
emposbgetv+l:STA OSBGETV+1 

2414 LDA temposbputv:STA OSBPUTV:LDA t 
emposbputv+1:STA OSBPUTV+1 

2416 CLI N Re-enable interrupts 

249Ø .newosfind N Test for close files 

2495 CMP %Ø:BNE osfindout N close a fi 
le? 

2500 CPY #0:BNE osfindout \ close all 
files? 

2505 RTS 

251Ø .osfindout N Not close all files, 
or any other call 

2512 JMP (temposfindv) N Goto original 
osfind routine 

2514 .newosbgetv PHA:LDA#1:STA spoolfl 
ag: PLA: .newosbgetv 1 JSR&FFFF : PHA: LDA# Ø: 
STA spoolflag:PLA:RTS 

2516 .newosbputv PHA:LDA#1:STA spoolfl 
ag: PLA: .newosbputv I JSR&FFFF : PHA: LDA#Ø: 
STA spoolflag:PLA:RTS 

2710 CMP #2:BNE test:LDA #&2Ø:JMP noge 
tch N See text 

2712 .test CMP #ASC ("£") :BNE nogetch N 

Is it a "£"? 

2714 LDA #129 N Yes see text 

2870 CMP #2:BNE testl:LDA $&2Ø:JMP pri 
ntit N See text 

2890 .testl CMP #ASC ("£") :BNE printit 
N Is it a "£"? 

2885 LDA 4129 N Yes see text 

2890 .printit STA ora N Output byte to 
printer 

2965 REM Adjust code location for extr 
a code 

2970 IF A 

2980 IF A 


rz 


sending Out Beebs fitted with a semi-custom 


chip, as opposed to the video ULA they used originally. This is virtually identical 


in function to the old ULA. Early batches of this chip required link S26 to be 
removed, and a wire connecting the centre pin of 526 to ICIØ pin 1 to be fitted. If 
your video ULA needs replacing, and you decide to perform this task yourself, then 
you will need to fit this if the new chip is one of the early batch. Acorn are now 
supplying chips that are pin for pin compatible, and which should not have this 
alteration performed. If you are in doubt, contact your dealer. 


esse ce ette e ERROR EIER ERE DD EOE EEEE EEEE RR RIS 
EE Em 
REM D APUD at tetai 
UU Uem mmmenseNNenenR mmu iidem 
TE LIEN IRINA 


INVERSE VIDEO - Ashley Denninson 


To produce reverse video without resorting to a sequence of COLOUR 
statements, use ?&D3=255 to produce inverse video, and ?&D3=Ø to revert back to 
normal video. (Note that modes with more than two colours will need different values 
- these can be found by experimenting.) 
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må VENN by T.A”Hara 


CALEND, 


What could be better for the forthcoming new year than a 
calendar with your favourite cartoon character? Using the program 
listed here you can have just that, and the program can be used to 
produce calendars for other years too。 


This program will in fact produce a 1985 
kbabel HUE MAN 


calendar tor any year after 1989. When MT MN 
UR a ee SU INE MINE TIE: 
for the year (only integers greater Het AT KE TER bis y zi THE ue 
than 1980 will be accepted). In the wre 3p å 152 | 3522 Pp HH 
bottom left hand corner of the screen KE 0 CRE EIE AA S E = 
" t . ` á #DAY HA JUNE JULY UGUST DAY# 

the word 'DAY' will be displayed with a CM E KTE RAE MNT 
u tôu 

i umb umb tot b 13 20 27 3 9 tios 
corresponding number. me mme — EO PET ee DE E 
with eSunday, l-Moniey, ees Tu ver FE UG IB 10028 oe 
i S m r 
with @=Sunday,1=Monday, etc. From then 1634 Å 11 18 25 1 815 5229 LBA $ tØ 17 93 31 aba 
| ; FEDERER HEHEHE ERE EEE 

on all output will be sent to the 4DAY SEPTEMBER OCTOBER NOVEMBER DECEMBER DAY 
i 4 ; PRHHREHEHHTEEHTHHEEHHEHHEHAEHE HERH EHHE HHE EIEEE 
printer (Centronics compatible). F I: 
rer nw mue didis — x d UM n EE 
1 imi +Th& 9 12 19 26 3 18 17 24 31 7 14 21 28 91 6 #Th# 
printer, although it ca be rum Ster RR RR 
printer, although it can be run without ET inania nnt 


any codes onto any 80 column printer. 
The codes use REM statements to signify 
their operation. 


PRINTER CODES 


The codes are marked in the listing 
by | appropriate REM statements. For 
those who may want to change them to 
suit other printers the codes used are 
as follows: 


If you know the first day of the B b ; 
year for a particular year (1980 in i 
this program) you can calculate the 
first day of the year for any year 
after your starting point by adding 
days. From this starting point it is 
then a straightforward task for the 
program to compile a calendar for the À ding 
year specified. 


Once the calendar is complete the 
program then draws the well known Trogg 
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character from the popular game FRAK! 
produced by Aardvark Software. On non 
Epson printers an elongated picture 
will be produced. 


The part of the program that draws 
the cartoon is very simple. It is just 
a listing of data. The routine itself 
consists of just two loops, one to READ 
the data and one to carry out the 
operation of printing. The data 
comprises four possible items of 
information, an integer followed by a 
character, where the integer is the 
number of: times that particular 
character is to be printed, -1 to 
indicate the end of a line, and | 
(close square bracket) or any other 
consistent character to indicate a 
space. Certain characters produce 
different results in that double strike 
is used for all characters other than 
Ø. Any number of conditional loops 
could be added to make use of what ever 
effects the printer is capable of. 


So now you can print out your own 
cartoon calendar, indeed as many as YOU 
wish. Be careful about showing them to 
your friends though because if our 


experience is anything to go by they 
will all want one as well. 


from FRAK! 
permission 


The | Trogg character 
reproduced by kind 
Aardvark Software. 


VG UD KEN a ace eS o IBN iu Win seta Gea ae S ef e aH tet Ute att 
NS 


REM VERSION BØ.3 

REM AUTHOR  T.A'HARA 

REM BEEBUG DECEMBER 1984 

REM PROGRAM SUBJECT TO COPYRIGHT 

60 : 

ON ERROR GOTO 2396 

REM SEND CONTROL CODES TO PRINTER 
120 VDU2,1,15,1,27,1,51,1,23 
130 VDU1,27,1,198 1,3 
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148 DIM Days% (381) :DIM MonthsS (12) : DI 
M DayS (7) :DIM R$(12) 
150 Day=Ø:CLS:MODE 7 | 
160 FOR A=1T02: PRINT CHRS141:CHRS1 32; 
TAB (15) "CALENDAR" : NEXT 
178 PRINT''' 
180 FOR A=1T02:PRINT CHR$141;TAB (5) "E 
NTER YEAR OF CALENDAR NOW" : NEXT 
190 SOUND 1,-15,20,5 
200 INPUTYear 
210 IF Year«1980 OR Year<>INT(Year) T 
HEN SOUND 1,-15,0,5:GOTO 156 
220 PRINT''' 
23Ø FOR A=1TO2: PRINT CHR$141; SPEC(16); 
Year : NEXT 
240 PRINT''''' 
25Ø PRINT"IS THIS CORRECT ? Y/N" 
260 SOUND 1,-15,30,5 
270 AnsS=INKEYS (19) 
280 IF AnsS="Y" OR AnsS="y" THEN32Ø 
290 IF Ans$="N" OR Ans$="n" THENI1 SØ 
3ØØ IF Ans$="" THEN27Ø 
310 SOUNDI1,-15,12Ø,1Ø: SOUND 1,-15,30, 
5: GOTO270 
320 SOUND 1,-15,160,3 
330 PROCLEAP 
340 PROCDAYS 
350 PROCCALENDAR 
360 MODE3 
370 PROCPRINT 
380 REM SEND CONTROL CODES TO PRINTER 
390 VDU2 
AQQ VDU1,18,1,27,1,1908,1,0 
410 VDU3 
420 PROCtrogg 
430 END 
440 : 
1000 DEF PROCLEAP 
19019 T$-Year/4 
1029 IF (T$*4)-Year THEN Leap$-l ELSE 
Leap$-0 
1930 ENDPROC 
1040 : 
18050 DEF PROCCALENDAR 
1060 FOR T=1 TO12:READ Monthss (T) , R$ (T 
) s «NEXT 
1078 D%S=Day:FOR T$-1TOl12:FOR T2%=1TORS 
(TS) 
1088 D%=D%+1:Days% (DS) =T2% 
1998 IF Leap$-1 AND D%=59 D%=D%+1:Days 
% (DS) =29 
11ØØ NEXT, 
111@ FOR T=1 TO7:READ DayS (T) s NEXT 
1128 ENDPROC 
113@ : 
1140 DATA JANUARY, 31 , FEBRUARY, 28, MARCH 
731, APRIL, 3Ø,MAY, 31, JUNE, 30 
115@ DATA JULY, 31,AUGUST, 31 , SEPTEMBER, 
3Ø, OCTOBER, 31 , NOVEMBER, 30 , DECEMBER, 31 
Tu* ,We* , Th* , Fr* , Sa* 
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117Ø 

118Ø DEF PROCDAYS 

1198 Y$-Year-1980 

12ØØ IF Y$«4 GOTO 12760 

1210 Nodays%=Y%/4 

1220 Ddays%=Y%-Nodays%*4 

1236 Tdays$-Nodays$*1461-4Ddays2*365 

1240 Fdays%=Tdåys%-(Y%*364) 

1250 IF Fdays%<7 THEN127Ø 

1260 REPEAT:Fdays$-Fdays$-7:UNTIL Fday 
S$«7 

1276 IF Y$-0 THEN Fdays%= 

1289 IF Y$-1 THEN Fdays$-2 

1298 IF Y$-2 THEN Fdays$-3 

1300 IF Y%=3 THEN Fdays3=4 

1318 Day=Fdays%+3-Leap% 

1328 IF Day»6 THEN Day=Day-7 

1330 PROCWAIT 

1340 PRINT CHR$133"DAY";CHR$135;"- "D 
ay 

1350 ENDPROC 

1360 : 

1370 DEF PROCPRINT 

1380 VDU2 

1390 E$20:EXTRA-0 

1400 VDUT, 14: PRINTTAB (19) Year :REM DOUB 
LE HEIGHT CHARACTER 

1410 PRINT STRINGS (8Ø,"*") 

1420 PRINT"*DAY"SPC (6) "JANUARY"SPC (19) 
"FEBRUARY"SPC (12) "MARCH"SPC (14) "APRIL"S 
PC (5) "DAY*" 

1430 PRINT STRINGS (80 , "*"!) 

1440 FOR W-1TO7 

1450 CS=W+EXTRA 

1460 Q$-1:PRINT"*';DayS(W);:82$-3 

1470 FOR N=1TO4 

1480 D13= 

1490 FOR T=1TO6 

1500 D$-Days$ (C$) 

1510 IF D$=Ø THEN PRINTSPC (3) ; :GOTO 15 
7Ø 

152Ø IF D%>2Ø AND N=1 AND T<3 THEN PRI 
NTSPC (3) ; :GOTO1579 

1530 IF D%<8 AND T=1 AND D%>W THEN PRI 
NTSPC (3) ; : GOTO1580 

1540 IF D%>=D1% THEN PRINTD$;ELSE PRIN 
TSPC (3) 2 : GOTO1580 

1550 IF T<3 AND N=1 AND D2»7 THEN D$- 

1560 D1$-D$ 

1578 C$-(C$*7) 

1580 NEXT T 

1590 NEXT N 

1600 PRINT"*":DayS(W) 

1619 NEXT W 

1620 PRINT STRINGS(8Ø,"*") 

1630 E$=E$%$+1 
1649 IF E$-1 THEN EXTRA=119 
1650 IF E$-1 THEN PRINT"*DAY"SPC (8) "MA 
Y"SPC (14) "JUNE" SPC (15) "JULY"SEC (13) "AUG 
UST"SPC (5) "DAY*" 

1660 IF E$-2 THEN EXTRA=238 
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SPC(6) "SE 
PTEMBER" SEC (9) "OCTOBER" SEC (9) "NOVEMBER" 
SPC(12) "DECEMBER"SEC (4) "DAY*" 

1680 PRINT S'TRINGS (80, ''*") 

1690 IF E%<>3 THEN 1440 

17080 VDU3 

1710 ENDPROC 

1720 : 

1730 DEF PROCWAIT 

1740 CLS 

1750 FOR A=1TO2: PRINT CHR$141;CHRS$132; 
TAB (15) "CALENDAR" : NEXT 

1760 PRINT'''' 

1770 FOR A=1 TO2:PRINT CHRS1 41 ;CHRS135 
;SPC (4) "WAITING ; OUTPUT TO PRINTER ":N 
EXT 

178Ø PRINT"? REE 

179Ø ENDPROC 

1800 : 

181Ø DEF PROCtrogg 

1820 REM ***%* DRAW TROGG ******xkkk*xx 

1830 REM SEND CONTROL CODES TO PRINTER 

1840 VDU2:VDU1,27,1,51,1,18 

1859 VDU1,27,1,108,1,20,1,10,1,10 

1860 RESTORE2ØØØ : Q$=Ø: REPEAT: READAS , AS 

1870 IF A$«0 THEN PRINT" ":GOTO0193Ø 

1888 FOR N=1 TOA$ 

1890 IF ASz"]" THEN PRINT" "> :GOTO192Ø 

19ØØ IF AS<>"0" THEN VDU1,27,1,71 ELSE 

VDU1,27,1,72 

1910 PRINT AS; 

1920 NEXT N 

1930 UNTIL A%=-99 

1940 VDU1,12:VDU1,27,1,64:VDU3 

1950 VDU22,7: PROCAGAIN 

1960 IF AGAIN=1 THEN CLEAR: RUN 

1970 END 

1980 : 

1998 REM Top Half 1-6 | 

2000 DATA 28,],4,@,-1,],25,] 
1,],23,],6,@,6,0,-1,],22,],6, 
2,0,-1,],20,],8,@,2,0,2,],2,@ 
19,],8,@,3,0,2,],2,@,7,0,-1,] 

2010 REM 7-12 

2020 DATA 18,]1,9,0,4,0,3,1,2,0,-1,], 17 
;1,11,0,7,0,-1,],16,],12,0,7,0,-1,],15, 
],14,@,5,0,-1,],16,],14,@,3,0,-1,],17,] 
715,@,-1,] 

2Ø3Ø REM 13-18 

2040 DATA 14,],4,0,1,X,2,] ,1,X,9,0,-1, 
],12,1,6,0,1,X,2,],1,X,9,0,-1,1,10,],9, 
0,1,X,2,],1,X,8,0,-1,]1,9,1,19,0,1,X,2,] 
;1,X,9,0,-1,],8,],11,0,1,X,3,],1,X,8,0, 
51:17: 1, 13,05:1,3,25] 21729701] 

2050 REM 19-24 


:2,0,4,0,— 
Q,3,0,3,], 
7 1 


14 
7:0,- am 


Volume-3 Issue 7 


23 


AL ROM SC 


Reviewed by Geoff Bains 


internal ROM expansion boards available. 


With the plethora of ROMs for 


the BBC micro, 


| the methods of 
connecting them abound. In BEEBUG Vol.3 No.6 we looked at the 


This month Geoff Bains 


looks at a new trend amongst ROM boards. 


If you're blessed with more ROMS 
than either your Beeb or an internal 
ROM board can handle, or if you have 
many that are incompatible, you'll 
frequently need to swap ROMs in and out 
of your machine. Of course you can just 
prise them out of their sockets with 
the traditional screwdriver or Bic biro 
top, but this is both cumbersome and, 
in the long run, damaging. It means 
taking your Beeb apart every time too. 


How much simpler things would be if 
you could simply plug a ROM into an 
external socket. Fortunately several 
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companies have also had this thought 
and there are several external ROM 
boards now on the market especially 
designed for the owner who swaps and 
changes. — 


There are problems with all kinds of 
external ROM socket. The length of 
ribbon cable that has to come between 
them and your Beeb circuit board can 
cause all kinds of strange errors. It 
is not a definite phenomenon. It 
happens with some ROMs in some ROM 
Sockets on some Beebs, with some ROM 
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internal boards...in months with an R ==> 


in their name! Using these extension 
sockets in conjunction with a well 
buffered internal ROM board helps to 
prevent mysterious machine crashes but 
that is no comfort if this is to be 
your first ROM board. 


Fitting these sockets is not easy 
either. The bad standard of 
documentation doesn't help, nor does 
the fact that they are all designed to 
connect to one of the four standard ROM 
sockets in the Beeb and not to an 
internal ROM board with which they work 
better! 


The external ROM sockets fall 
broadly into two classes. The first is 
the simplest and consists merely of a 
'zero insertion force' socket that fits 
in the hole at the side of the keyboard 
and ` connects to one ROM position, 
either on the main Beeb board or on an 
internal | ROM expansion board. The 
Watford Electronics, and Toad sockets, 
and ATPL's 'Inside Out' are all of this 
kind. With all of them the ZIF socket 
(a special sort of chip socket that 
will not damage the ROM even on 
repeated removal and replacement) sits 
on a Small circuit board. From this a 
ribbon cable connects to a header plug 
that fits into a spare ROM socket. The 
cable on the Toad socket is soldered 
directly onto the ZIF board and 
directly onto the pins of the header 
plug. This is not as secure as using a 
proper connector as the others do. 
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During the course of this review two of 
the ribbon cable cores broke at these 


connections. 


The hole at the side of your Beeb's 


keyboard is not designed to take this 
kind of socket. It's made for speech 
vocabulary cartridges (if Acorn ever 
produces them). This means that the 
mounting arrangements of the external 
Sockets are not wonderful. Watford 
Electronics' version is probably the 
best of its genre. It has a hole on the 
circuit board through which the 
mounting pillar for the computer's lid 
fits. This gives a reasonably stable 
arrangement. Even then, like all the 
others it is just stuck to the 
underside of the lid with double sided 
Sticky tape. The ATPL board has a 
greater area of sticky tape than most 
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and this makes it firmer in position, 
In addition ATPL's is not restricted to 
this position in your machine, but can 
easily fit on the top, beside it, 
indeed anywhere. 


The other kind of external ROM 


socket is designed to take several ROMS 
just like its internal counterpart. 
Here, however, the selection of which 
ROM is in operation does not depend on 
software. A switch on the unit takes 
care of this. 


The idea behind this blatant 
disregard for Acorn's clever operating 
system is so that you can change over 
ROMS without knowing the fancy XFX 
commands. 


Ramamp's and Micro Pulse's ROM boxes 
are of this type. The Micro Pulse 
version has room for eight ROMs that 
plug into normal chip sockets under a 
transparent lid. A switch on the side 
selects the ROM in operation. Ramamp' s 
unit has four sockets for special 


cartridges. These are in effect small 
circuit boards containing a chip socket 


inside a plastic case. These plug into 
the ROM box. 


The advantage of this system is that 
not only can you select the ROM of your 
choice from those in the box, but the 
range in the box can be easily changed. 


The drawback is that the spare 
cartridges, essential to make full use 
of the idea, cost a rather staggering 


£3.80 each. 


Different from either of these types 
of external ROM secket, but combining 
many of the advantages of both, is the 
ROM cartridge system from Viglen. This 
gives you a special socket that fits 
into the hole at the side of the 
keyboard. Into this fit cartridges 
containing ROMS. 


The socket fits positively into the 
keyboard hole. It has been specially 
moulded for this position and so can be 


both inserted securely and removed 
easily. It is not a botched up, off the 
shelf answer. The cartridges, too, are 
made well. The problem with this system 
is, again, that of price. Producing 
special plastic mouldings of this kind 
is not cheap so the system costs £19 
for the initial pack and then nearly £7 
for each empty cartridge. This is a 
great shame as this effectively rules 
out an otherwise excellent idea. 


Of the rest, if you want the 
switchable option and don't mind paying 
over the odds for the cartridges then 
the Ramamp ROM box is probably your 
best bet. Otherwise, a single ZIF 
socket type would seem the answer and 
ATPL's and Watford's the better of 


these. Se 
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TRAC 


16k by Martin Dale 


iS month we 


present a useful utility that extends the Basic trace 


facility by printing the line number in the top left hand corner of 
the screen, avoiding a  screenful of scrolling numbers, and by 
proviðing a delay between each line executed. 


Most serious program writers find 
the occasional need for a trace 
facility when debugging programs. 
Unfortunately, the original facility in 
BBC Basic will, unless used Very 
Selectively, fill the screen with an 
horrendous and confusing amount of 
output. The short utility listed here 
is designed to extend the Basic trace 
to overcome these drawbacks. 


There are two basic improvements 


implemented in this extension; the 
printing of the line numbers only in 
the top left hand corner of the screen 
(or current text window), and the 
facility to pause between each line to 
allow you time to study the current 
position in the program. 


To use the program, type it in and 
save it to tape or disc (it is sensible 
to save it first in case there are any 
errors in the machine code). Once run, 
the extended trace facility will 
initialise itself, and you may then use 
it as you wish. Note that it will be 
lost on pressing Break, and that it 
Shouldn't be initialised twice or the 
machine will hang. As with the standard 
Basic trace, you use TRACE ON to enable 
it, and TRACE OFF to disable it. See 
page 367 of the User Guide for more 
details on the TRACE command. 


= The utility works by intercepting 
the operating system routine OSWRCH, 
which writes a character, and 
performing three tests to check for the 
Start of printing of the current line 
number. These tests are: is the trace 
flag set, is this character not within 
a VDU sequence, and is it the "[" 
Character (the trace facility prints 
line numbers within Square brackets)? 
If all of these tests are true, then 
the extended trace routines are called. 


The current cursor position is first 
stored away, 
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whether the text and graphics cursors 
are joined and that the trace routine 
is active. Next, the | cursor is 
positioned at the top left of the 
Screen (more accurately, the current 
text window). Once this is done, the 
routine exits back to Basic, which then 
prints the current line number. 


When the printing of the current 
line number is complete, the trace 
routine is again entered (this is 
triggered by the trailing space after 
the line number). A simple loop will 
normally wait for 2 seconds, but can be 
made to terminate quicker by the press 
ofa key, or immediately by a press of 
the Shift key. This is designed to 
allow the program to be stepped through 
at a variety of speeds, allowing 
correct sections to be passed over very 
quickly whilst up to 2 seconds can be 
spent on any lines which seem worthy of 
more detailed study. 


Once the delay has finished, the 
cursor is restored to its original 
position, the trace active flag is 
Cleared, and the text and graphic 
cursor are re-joined if necessary. The 
routine then exits, and the user's 
program carries on running as normal. 


KNOWN LIMITATION 

There is a known limitation in the 
current version of the program; any 
attempt to print a "[" as a single 
character (ie not as part of a graphics 
Sequence) whilst tracing will cause the 
program to respond un-predictably. 
There is no easy way to cure this, but 
knowing that it exists should help 
users to avoid too many problems. 
BEEBUGSOFT's Sleuth, a powerful Basic 
monitor, includes a similar trace 
option, amongst its many other 
features, but without this limitation. 
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EM PROGRAM TRACER 


20 REM VERSION BØ.ØI 

3Ø REM AUTHOR MARTIN DALE 

4Ø REM BEEBUG DECEMBER 1984 

59 REM PROGRAM SUBJECT TO COPYRIGHT 


60 : 
osbyte=&FFF4 


11Ø FOR pass=Ø TO 2 STEP 2 

120 P%=FNlocate 

139 [OPT pass 

140 .newvec 

150 PHA 

160 LDA &20 N Get trace flag 
170 BNE trcon N Branch if <> Ø 
180 PLA i 

19Ø JMP printchar 

2ØØ .exit 

210 PLA 

220 .exit2 

230 LDX temp N Restore 

240 LDY temptl N registers 

250 .printchar 

260 JMP (oldvec) N Print character 
270 .trcon | 

280 STX temp N Save registers 
299 STY tempt] 

300 LDA #&DA N Is it in the 
310 LDX $0 N middle of a 
320 LDY #&FF N, VDU command? 
330 JSR osbyte 

340 TXA - | 

350 BNE exit N Return if yes 
360 LDA trcflg \ In trace output? 
370 BNE midtre \ Yes, branch 
38Ø PLA 
399 CMP HASC("[") \ Start of trace? 
400 BNE exit2 \ No, return 

410 INC trcflg \ Set trace flag 
420 LDA #&86 \ Save cursor 
430 JSR osbyte N position 

440 STY vpos 

450 STX pos 

460 LDA #&75 \ Is VDU 5 set? 
47@ JSR osbyte 

480 TXA 

490 AND #32 

580 BEQ ntgraphic \ No, branch 

519 INC trcflg*l \ Yes, set flag 
520 LDA #4 N VDU 4 

53Ø JSR printchar 

54Ø .ntgraphic 

55Ø LDA #3Ø N Move cursor to 
560 JSR printchar \ top left corner 
570 LDA $ASC("[") N Print left men 
58Ø BNE printchar N and return 

590 .midtrc 

600 PLA 

610 CMP 4ASC(" ") N Finished ? 

620 BNE exit2 N No, return 

630 JSR printchar N Clear mp" 


— 


650 


660 


670 
680 
690 
790 
719 
720 
736 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
10900 
10160 
1020 
1939 
1040 
1950 
1868 
1979 
1989 
1999 
11998 


27 


trcflg N Restore flag 
LDA #31 N Restore cursor 
JSR printchar 
LDA pos 
JSR printchar 
LDA vpos . 
JSR printchar 
LDA trcflg*l \ Cursors joined? 
BEQ ntgrphic \ No, branch 
LDA #5 \ Rejoin cursors 
JSR printchar 
DEC trcflg+1 N Clear VDU 5 flag 
.ntgrphic 
LDA #21 \ Flush keyboard 
LDX #Ø N buffer 
JSR osbyte 
LDA #200 N 200 ticks 
STA delay N 
.loopdelay bue 
LDA $129 N Shift key 
LDX $255 N pressed? 
LDY #255 N 
JSR osbyte N 
CPY 4255 N 
BEQ exitdelay \ Yes, exit 
LDA #129 \ No, wait a 
LDX #1 . \ tick. Key 
LDY HØ \ pressed whilst 
JSR osbyte \ waiting? 
BCC exitdelay \ Yes, exit 
DEC delay N No, any more 
BNE loopdelay N ticks? 
.,exitdelay. N exit delay 
RTS 
delay \ delay byte 
NOP 
] 
trcflg-P$ 
temp=P%+2 


pos=P%+4:vpos=P%+5 

oldvec=P%+6 

NEXT 

IPS=Ø: I (PSt+4) =Ø 

20ldvec-?&20E:? (oldvec+1)=?&2ØF 
?&20E-newvec MOD 256 
?&20F-newvec DIV 256 

END 


111Ø : 


112Ø 
113Ø 
1149 
115Ø 
116Ø 
1179 
118Ø 
s END 
119Ø 
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DEF FNlocate 

LOCAL A$,X$,Y$ 

A$-0:Y$-0 

A$- (USR&FFDA) AND&EF0000 DIV& 1 ØØØØ 
IF A%=1 OR A%=2 X%=&DØØ 

IF A$-4 X$-&A00 

IF X3=Ø PRINT"Tape or Disc only!" 
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S 2 


i midnight raid on e aa 


adventure games for the Beeb. Wizard 


against the sword's. 


Pausing only to grab a couple of 
rejuvenation spells, I left the dragon 
to guard the dungeon and conjured 
myself inside the first offering. 


Having been foully murdered by her 
husband, the Lady Leonara has cursed 
the castle and all who set foot within 
it. It was my task to find her mortal 
remains and lay them to rest in peace. 
The present ghastly inhabitants didn't 
seem impressed by my chivalry, however, 
and did their damnedest to kill me. A 
few kindly souls did assist me, if I 
first solved their problems, so it does 
help to be polite! The game is a 
coloured text, split screen affair with 
lots of well written descriptions. The 
castle abounds with locked doors which 
require an endless supply of keys. 
Opening doors becomes such a confusing 
business that I found I spent an hour 
later 


trying to unlock one which I 
found wasn't even locked! 
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endless thirst and flickering torch has 


repository unearths some new 
Mitch tests the pen's might 


Not so easy is the solution to the 
wandering monster that follows you. 
Unfortunately he continues to reappear 
with monotonous regularity causing you 
to repeat the same action að-infinitum. 
The game however has a nice 'feel' to 
it and is not too difficult. 


You are wandering around the ` s 
archaeologists camp.Tracks lead . 
southwest & east towards: pu 
“large tent ` ` . ` 


Yau are in 3 long. 
«the middle of an arc 
p Å track lead 


A similar format of coloured text 


and split screen, this game found me 
crawling around in decaying corpses 
beneath the pyramid of old King Tut. 
The place is so hot and smelly that 
you'd better ensure you bring lots to 
drink and something to keep the deadly 
stink out of your nostrils. I found a 
laundry basket which hissed and a pit 
in which something nasty was 
slithering! 


A real time element coupled to your 
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been added to the game. You have no 
time to stand and stare but must hurry 
ever forward towards that light at the 
end of the tunnel. Which knowing my 
luck will be a train coming the other 
way! : 


This game has all the usual 
ingredients, but in that is its 
weakness. I couldn't find that magic 
something which is needed to keep me 
battling forward so I folded my tent, 
mounted my camel and stole off home. 


Among this month's offerings I have 
a book as well: 


I confiscated this from the Troll. 
He is trying to write an adventure in 
which he gets to keep the gold for a 
change. i 


Many BBC micro users, 


despairing 


The book contains many of the 
secrets used in the Acornsoft games, in 
fact most of the procedures are a 
straight copy from Philosophers Quest. 
Topics include how to write 'Hack and 
Slash' games, a full-size Roman-style 
adventure, a chapter on Databases and 
all the procedures needed to create 
your own games. I give this book four 
stars for the clear and amusing style, 
but I deduct.one as some Demon Editor 
failed to notice that part of the 
program listing on page 133 has not 
been printed. Luckily the corrupted 
lines are used elsewhere in the book 
(page 127), so all is not lost. However 
I hurled a few of my more dreadful 
curses before finding those. 


Having earned my supper by solving 
that problem I highly recommend the 
book as essential reading by all fans. 
The infectious enthusiasm of the author 
is so strong it is bound to inspire any 
troll to write his own game. Trouble 
is, if all wizards give away secrets 
like Peter, this dungeon is going to 


1 
get pretty crowded! emm] 


TAPE I 


Reviewed by Geoff Bains 


of their lethargic cassette 


recorders, will still think twice before spending the large amounts 
needed for a disc system. Geoff Bains investigates an alternative. 


Product : Ultradrive 

Price : £83.40 

Supplier : Ikon Computer Products 
Kiln Lane, Laugharne, 
Dyfed, SA33 4QE. 
G99421-515 

Product : Phloopy 

Price : £147.75 

Supplier : Phi Mag Systems 


PO Box 21, Falmouth, 
Cornwall, TRII 3TD. 
0326-76040 


With a disc drive interface for your 
BBC costing upwards of £70 and the 
drives themselves priced at over £190, 
the atmosphere is ripe for an 
alternative system. Ikon Computer 
Products and Phi Mag Systems both have 
cheaper alternatives that claim to 
perform like disc drives. 
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ULTRADRIVE 

The  Ultradrive is an improved 
version of the Hobbit floppy tape 
system reviewed in Beebug Vol.2 No.2. 
The Ultradrive records programs and 
data onto a standard Philips mini 
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cassette, as used in many dictation 


machines. The mini cassette deck is 
totally under the control of the Beeb. 


Fitting the Ultradrive to your BBC 
is simplicity itself. The actual drive 
comes in a (cream!) case about four 
inches cubed. This connects to the user 
port and the auxiliary power socket 
under the computer by means of a couple 
of cables. Once that is done there is 
only the inevitable control ROM to fit. 


The Ultradrive works in two modes. 
In the simple mode the Ultradrive acts 
as a very fast cassette recorder with 
no need for manual control nor any of 
the Beeb's memory. In the complex mode 
the Ultradrive takes on more of the 
facilities of a disc drive. Now up to 
five files can be open at once and two 
drives can be used though the penalty 
for this is that PAGE is set to &1609. 


Depending where you buy them, the 
cassettes cost up to £3.50. Each can 
Store about 190K of data. This is 
arranged in four sections. There are 
two 'sides' to each tape and each side 
has two separate directories. Because 
of the Ultradrive's cassette heritage, 
all files must have a length of tape 


(in blocks) assigned to them before 


they are first stored. This can be 
inconvenient when you have really no 
idea of the final length of a program 
that you are working on. 


There is a very laudable system to 
warn you that you're about to overwrite 
one file with another of the same name, 
and give you the chance to change your 
mind. In addition files can be locked 
with a *ACCESS command just as they can 
with the DFS, though the utility to do 
this is unfortunately on a separate 
utilities cassette. There are plans to 
bring out a ROM upgrade, containing all 
the utilities, for about £20. 


The Ultradrive filing system is a 
Clever piece of software that makes the 
most of the limitations of this 
cassette system. Most of the disc 
filing system commands are supported 
and, for the machine code programmer, 
most of the disc operating system calls 
are also there for the using. 


Although the facilities for random 
access are there, the time taken for 
the  Ultradrive to  rewind to the 
required record can mean that sometimes 
this is not practical. The Ultradrive 
will probably be used by most Beeb 
owners only as a super-fast cassette 
recorder. 


However, as such, the Ultradrive 
scores well. A commercial game that 
takes 3 minutes to load from normal 
Cassette takes a mere 40 seconds from 
the Ultradrive. 


Unfortunately there is next to no 
software available in the mini cassette 
format. Any game that you want to load 
from the Ultradrive (in double quick 
time) you first have to transfer from 
cassette. Not an easy task for many. 
However, a supplied utility will 
transfer many cassette programs onto an 
Ultradrive tape. If you get really 
stuck. then Ikon promises to transfer 
any software sent in, for free. 


PHLOOPY 
Phi Mag Systems have scorned the 
‘off the shelf answer' to produce a 


custom designed floppy tape drive. The 


Phloopy is much prettier than the 
Ultradrive but nearly twice the price. 
The Phloopy uses continuous loops of 
tape housed in a plastic cartridge 
about the size of a cigarette case. The 
cartridges will store 100K and cost £20 
for a pack of five. A demo cartridge 
and a blank one are included in the 
Starter pack. Inside the smart black 
drive there is a nine channel tape head 
and a complete microprocessor based 
control system. You get a lot of 
sophistication for your money. 
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The Phloopy is also a much more 
complicated add-on to fit than the 
Ultradrive. There are two small header 
plugs and a small circuit board that 
fit into the Beeb's disc interface 
sockets. The Phloopy drive itself then 
olugs into the disc drive socket under 
the Beeb and takes its power from the 
auxiliary power socket. You can't have 
a Phloopy and a disc drive interface in 
your machine at the same time, but you 
can have up to eight Phloopies fitted. 


There is also a control ROM to be 
fitted, of course, but fitting doesn't 
end there. You also have to cut two 
resistors on the Beeb's own circuit 
board. This makes restoring your Beeb 
to normal, should you want to upgrade 
to discs later, very much more 
difficult. 


Once installed, you can treat your 
Phloopy much like a disc drive. The 
"Loop Filing System' that accompanies 
the drive is, to the user, as near to 
the DFS as can be. The *ACCESS command 
is for some reason called *LOCK and 
*ÜNLOCK for its two actions. This is 
not only an annoying difference, but a 
confusing one, considering Acorn's own 
'locking' of files with a quite 
different meaning. 


Random access filing is catered for 
very nicely on the Phloopy, with all 
the commands that you'd expect to find 
on a disc system. However programs that 
make extensive use of random access are 


READING TEXT FROM DISC OR ECONET - D.J. Scott 


tediously slow. This is because the 


tape loop inside the Phloopy cartridge 
is continuously moving round. Once one 
item of data has been read in, if you 
want to read another from the same 
file, you have to wait until the same 
area of tape comes around again. 


The loop system does have the 
advantage that no slow rewinding is 
needed along the length of the tape, as 
the  Ultradrive requires. Loading a 
single program can therefore be much 
quicker. It's all swings and 
roundabouts, but the overall advantage 
seems to be with the Ultradrive. 


One advantage, for now, that the 
Phloopy has is that all the utilities 
it uses are in the ROM. Like the 
Ultradrive, these include a program to 
transfer software from cassette. Phi 
Mag Systems is (SO far unsuccessfully) 
trying to persuade software houses to 
use Phloopies. 


Although the  Phloopy is, in many 
ways, a more elegant solution to the 
problem, it lacks the reasonable price 
and the well thought out approach of 
the Ultradrive. If you want a flashy 
add on to impress your friends, the 
Phloopy wins hands down. If however you 
are looking for a useful stopgap 
between cassette and discs then the 
Ultradrive is not only the cheaper 
solution but more practical one as 
well. 


= 


If you are writing a program that is going to be displaying a large amount 
of text, and you are using disc Or Econet, then a considerable amount of memory can 
be saved by using *TYPE in the program to print out files of information. =] 


SAVING ENVELOPES - J.S. Swiszczowski 

In the past we have published hints on how to save definitions for function 
keys and user defined characters. This basic technique can be extended to save the 
currently defined envelopes. This is accompilished with: 

*SAVE ENVS 8CØ+1ØØ = 


BEEBUG DECEMBER 1984 Volume-3 Issue 7 


by Surac 


This month we start a two part series on the use of indirection 


operators with a general introduction to the subject, and a detailed 
look at the use of "?" and "!" in manipulating numbers in memory. 


Indirection operators allow a Basic 
program to access directly locations in 
memory. The necessity for this occurs 
when using some operating system calls, 
and they are very useful for creating 
some forms of data structure - and 
manipulation. Those of you who are 
familiar with other dialects of Basic 
will come to realise that indirection 
operators are roughly equivalent to 
PEEK and POKE in their function. 


To illustrate the use of indirection 
operators, and expose their 
limitations, we'll use one byte of 
memory, say &7Ø. An understanding of 
hex helps when using indirection 
operators. Note that memory locations 
&7Ø to &8F are always free to a user 
program. We'll then perform a number of 
fairly simple actions upon this 
location, and observe the results. Type 
in the following, and study the results 
displayed. 


A=1Ø : PRINT A 
2&7Ø=1Ø : PRINT ?&70 


The  "?" indirection operator is 
normally pronounced as "query", 
although you may find it helpful to 
read it as meaning 'the contents of". 
The name itself allows us to 
distinguish between the different 
indirection operators. In both cases 
above, the same result is printed; ie 
1Ø. Now change the 1@ to a 1990, and 
try the examples again. In this 
instance, different results will be 
produced. What is happening is that the 
"2" operator only works with one byte 
of memory at a time. The number 1ØØØ is 
bigger than 255 (the maximum number 
which can be stored in a byte) and thus 
the low byte only of this number (232) 
is assigned to address &7Ø (see diagram 
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below) . Clearly, if we want to store 
numbers bigger than 255, the "2" 
operator is not appropriate. 


Fortunately, there is a method of 


storing numbers up to t/- 
2,147,483,647. This is accomplished by 
using the "I" operator (pronounced 
pling), which operates on four bytes at 
a time. Thus, if you change the "?" 
characters to a "!" characters in the 
above examples, and then retype them, 
you will find that the 1008 is 
correctly handled. Another limitation 
of the "?" operator is that it does not 
handle negative numbers as fully as "i!" 
and normal Basic variables. The "2" 
operator can only handle negative 
numbers which have already been 
converted to a 2's complement format 
(see the Advanced User's Guide, page 
31). 


To illustrate another point, change 
the number being using to 34.34 instead 
of 1000, and try the above examples 
again. This shows that pling stores 
numbers only as integers (ie no decimal 
part). There is no indirection operator 
that  copes correctly with floating 
point values. 


In summary, "?" addresses a byte at 
a time, whereas "I" works with four 
bytes. Both deal just with integers, 
but only "1" copes with negative 
numbers in the way that you are used 
to, and thus it is the use of "!" which 
is equivalent to the use of a normal 
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One immediate use of the  "?" 
operator is to display in detail the 
contents of any section of memory. The 
program below demonstrates the use of 
"2" in this way. 


lø FOR A$- PAGE TO TOP 

20 B$-?A$ 

30 PRINT ^A$,7B$,"-5"; 

4Ø IF B%<32 OR B3>126 B$-42 


5Ø VDU B$ 

60 PRINT 

70 NEXT 

This steps through the area of 
memory holding your program am reads 


the byte at each location into B$ 
(carried out by line 20). It then 
prints the memory address and the byte 
value in hex, and checks to see if the 
byte is printable as an ASCII value. It 
sets B$ to the ASCII value of an 
asterisk if it isn't because various 
control codes could trigger off the 
drawing of random graphics in the 
middle of the program. The byte is then 
printed, and the loop is continued. If 
you run this program straight away, the 
characters displayed will be those 
corresponding to this program. You 
could also program a function key to do 
this and use the routine to look at any 
Basic program you choose to load into 
memory. Note the way in which the 
variable A% holds the address of the 
byte of memory which we wish to access. 


The program below illustrates a 
slightly more powerful way of using the 
indirection operators. See if you can 
anticipate the function of line 9% 
before reading any further. When you 
are ready, type in the program, run it, 
and then press a few keys on the 
keyboard (you should make sure that you 
are not in mode 7 before you run the 
this program). 


lø DIM X% 20 

20 Y%=X% DIV 256 

30 A$-10 

4Ø REPEAT 

50 ?X$-GET 

60 CALL &FFFl 

70 VDU 23,128 

80 FOR I$-8 TO 1 STEP -l 
98 VDU I$?X$ 


33 


1900 NEXT 
110 VDU 128 
120 UNTIL Ø 


This short program uses one of the 
operating system calls known as OSWORD 
(at address &FFF1) to read the 
definition of a character, and then 
manipulates this data to write the 
character upside down. Note the way in 
which line 19 is used to allocate 21 (Ø 
to 20) bytes to the program, with the 
start address (of the first byte) 
assigned to X$. The CALL to OSWORD (see 
the User Guide page 214 for more 
information on the use of CALL) 
requires that the "high byte" of the 
address be in Y$, and this is achieved 
by line 20 in the program. Although X$ 
contains the full address the  OSWORD 
call takes only the low byte of this 
value. This manipulation of an address 
in X$ and Y$ occurs frequently when 
calling operating system routines. 


Line 90 of the program contains an 
an interesting variant on the use of 
"2". I2?X$, The effect of this is to 
access the contents of (X%+I%). This 
provides a powerful and flexible use of 
"2" that has some similarities with 
Basic arrays. By setting X% to point to 
the start of a set of bytes and 
incrementing I$ within a loop, it is 
easy to reference each byte in turn, as 
in line 99 above. The alternatives to 


"this would be to use ?(X%+13), or for 


the loop to go from X%+8 to Xstl, both 
of which are less elegant. 


After calling OSWORD at line 60 with 
A$-10, the eight bytes defining the 
characters will be stored from the 
address specified by X$ and Y%. By 
outputting these bytes in reverse order 
(lines 80 to 1990) the character is 
displayed upside down on the screen. A 
further example of the extensive use of 
indirection operators occurs in the 
movedown routine published in  BEEBUG 
Vol.3 No.5. 


Next month we will conclude our look 
at indirection operators by looking in 
particular at their use in connection 
with string handling. 
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ING OUT 


wo Books Reviewed by Steve Ibbs 


Two books have recently been published dealing with music and the 


BBC micro. We asked Steve Ibbs, a lecturer in music and the director 
of an electronic music studio to read both and give his reaction to 


them. 


This book contains 244 pages divided 
into 13 chapters, and all the programs 
are conveniently available on cassette 
if required for a further £5.95. 


The first chapter of this book is an 
easy guide to 'What is Sound', and how 
to generate sound on the BBC micro. It 
is sufficiently detailed, without 
losing those very readers the book was 
aimed at, namely the enthusiast with 
perhaps not much theoretical expertise. 
The next chapter then proceeds to 
explain traditional musical notation 
with staves, scales, and rests. 


Chapters four and five examine the 
SOUND and ENVELOPE commands in some 
detail. There are nine sample envelopes 
for various instruments and the 
accompanying program displays the 
envelope, and allows the user to change 
it very easily and hear the result. 
Another program later in the chapter 
dealing with the pitch envelope can be 
combined with this and together they 
form a most useful aid. 


Chapter seven looks at various sound 
effects: zaps, zings, ricochet space 
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ship etc. There is a small section on 
sound effects in utility programs, and 
a small rhythm-generator program. 


The next part of the book looks at 
the Beeb as a musical keyboard and the 
limitations imposed by this. The last 
part of this chapter contains a set of 
programs enabling a bass sequence to be 
set up with improvisation above it 
being possible. With the development of 
editing facilities these could, as the 
last page suggests, be the basis of a 
miniature recording studio, albeit 
extremely limited. Chapter nine 
contains several programs to produce 
renditions of Mozart, Tchaikovsky, and 
Sousa, (Monty Python's signature tune). 


Chapters ten and eleven look at the 
computer aS a composer, within the 
various traditions and rules governing 
harmony, tonality, etc. Some of the 
results are I feel rather artificial, 
because the art of composition is 
linked with our emotions, experiences 
and expectations, attributes impossible 
to program into a computer. 


Chapter twelve looks at harmony and 
transposition, and contains a program 
for converting from one key to another. 
This could perhaps be useful for those 
learning about theory work, or involved 
in song-arranging. 


Generally the programs in the book 
perform well, and are quite enjoyable 
to use, the exception being "Hercules". 
This produces Bizet's 'March of the 
Torreadors' accompanied by a Hercules 
strong man rippling his muscles in 
synchronisation, and with applause to 
start and finish. This has to be seen 
to be believed, and can only inspire 


readers to attempt something slightly 
more adventurous. 
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3, to complement the one in chapter 4, 
that will produce graphics, and a 
print-out of the parameters. 


The fifth chapter starts looking at 
producing music, and there is an 


This is a slightly thinner book, and interesting section on actually 
with speech being covered as well, I programming musical notation, (used in 
didn't expect there to be much of a later program), to easily reproduce 
interest in the music section, but I the right symbols. 


was very pleasantly surprised. 
Chapter six deals with the Acorn 


The first chapter introduces us to speech synthesizer module, and at last 
the possibilities of sound on the it is put into simple layman's 
computer, and the very first program language, with lots of examples so I 
impressed me with the sound effects of can actually get words out, and hints 
waves and seagulls. A second program on compounding syllables together to 
converts the keyboard to generate four produce new words. 
octaves of notes, accompanied by a 
clear screen display. The appendices are very 

comprehensive, giving details of the 

Chapter two explains what sound is, sound buffers, FX calls, speech 
and this is more technical than Tan vocabularies, pitch parameters and 七 WO 
Waugh's book with several diagrams more envelope generators. 
illustrating basic scientific ideas. In 
this chapter is one of the nicest In conclusion I found this book to 
little programs I've seen for drawing be extremely useful, detailed, with 
waveforms and their harmonics. lots of examples and ideas, and I have 

to say that I preferred it to the Ian 

The next two chapters deal with the Waugh book. Having said this, there are 
SOUND and  ENVELOPE commands in great programs in both that I will use, but 
detail, with a plethora of small it is the Phillips book that will be 
examples to illustrate the text. placed in the reference section! 


Obviously a lot of the information is 
duplicated between the two books, but I 
did find the Phillips book to be more 
helpful, mainly because of all the 
examples. There is a good envelope 
designer, but the Waugh program wins 
here because of its simplicity of use 
and the graphics. Phillips includes a 
program later in the book, in appendix 


HARD SPACES IN VIEN 

If you are preparing å document using View, and insert text with the 
justification turned On, then View occasionally adds a few spaces, and these can 
confuse the formatting of the text. To solve this, edit the text with only 
formatting switched on, and add the justification at a later date. This can be done 
globally with the FORMAT command, but note that you should not use FORMAT directly 
after a SCREEN, SHEETS or PRINT commands (this is a known bug in View 1.4 and 2.1); 
press Escape twice to reset View. 
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NOISE FOR FIREWORKS - M. Scott 


If you liked the fireworks program published in BEEBUG Vol.3 No.5, then you 


might like to add the following line for some sound effects whilst the program is 
running. 


1915 IF RND(1Ø)<4 SOUND 0,-15,4,1 SES) 
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by Ben Miller-Smith 


Having constructed the tablet, the 
next step is to calibrate it so that 
the voltages input from the 
potentiometers to the analogue port can 
be converted to a corresponding X,Y 
position on the screen. We need to use 
the program listed last month (and 
reproduced again here for convenience). 


1@ MODE 7 

20 REPEAT 

30 PRINT TAB(Ø,5):SPC(4Ø) 

40 PRINT TAB (9,5) ;ADVAL (1) 

58 PRINT TAB(2Ø,5) ; ADVAL (2) 

6Ø TIME=Ø:REPEAT UNTIL TIME>5Ø 
7Ø UNTIL FALSE 


CONVERTING THE VOLTAGES TO ANGLES 

Run the above program and position 
the first arm horizontally along the 
base board from left to right and note 
the ADVAL(1) reading (call it armlzero, 
Say). Swing the arm to a straight down 
position, at 90 degrees to the first 
position, and again note the reading 
(call it armlninety). The difference 
armlninety minus armlzero represents 9 
degrees, and armlzero is the reference 
('zero') point, so the angle in any 
position is given by the expression: 


(ADVAL(1) - armlzero) * 9g 
/ (armlninety - armlzero) 


with the appropriate values substituted 
for amlzero and armlninety. 


ro 一 一 一 
2197 — 
am?” 


(X1, Y1) --7 


length 1 arm 2 angle 


arm 2 ninety 


1 
arm 1 ninety 


(X96, Y%) 


GEOMETRY 


This month sees the second and concluding part of our hardware project 
designed to help you build Your own 
is presented with a program to make f 


graphics tablet. This second part 
ull use of the tablet. 


The . second arm is calibrated in a 
similar fashion, but note that the 
angle is with respect to the first arm, 
not the base board. Stretch both arms 
out horizontally and note the ADVAL (2) 
reading  (arm2zero). Without allowing 
arm 1 to move, swing arm 2 down to a 
vertical posiion at 90 degrees to arm 1 
and note reading arm2ninety. As above, 
the arm angle will be given by the same 
expression, with the appropriate values 
for arm2zero, arm2ninety and using 
ADVAL(2) as the input reading. Check 
that all is well by amending the test 
program as follows: 


Add lines: 

39 armlangle = (ADVAL(1) - armlzero) * 
99 / (armlninety - armlzero) | 

49 arm2angle = (ADVAL(2) - arm2zero) * 
98 / (arm2ninety - arm2zero) 


where the armzero and armninety values 
are those noted during the initial 
manual checks and calibrations above. 


Change lines: 


40 PRINT TAB(Ø,5): armlangle 
5Ø PRINT TAB(20,5); arm2angle 


Run the program and check that the 
displayed angles are consistent with 
the arm positions as you move them 
about. Note that the angles may be 
displayed as negative for some typical 
arm positions. | 


CALCULATING AND DISPLAYING THE POINTER 


. Consider arm 1. Its angle with 
respect to the base board horizontal is 
known, so the end point (i.e. the hinge 
with arm 2) can be calculated if the 
length is known. Call the length of arm 
] 'lengthl'. The x,y position of the 
hinge is then given by: 


X1 
Y] 


length] + COS (RAD (armlangle) ) 
length] * SIN (RAD (armlangle) ) 
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remember ing to convert the angle 
degrees to radians with the RAD 
function, 


With the position X1,Y1 known, the 
pointer position at the far end of arm 
2 can be calculated from the angle and 
length of arm 2. Note that the 
arm2angle value is with respect to arm 
1 so we have to allow for this by 
adding the two angles. We also want the 
pointer position (PX,PY) with respect 
to the base board fixed point (the 
first potentiometer) rather than X1,Y1. 
The pointer position is thus given by: 
PX = Xl + length2 * COS (RAD (armlangle 
arm2angle)) 

Yl + length2 * SIN (RAD (armlangle 
arm2angle)) 


PY 


+H + ll 


The final points concern the 
transformation of PX and PY into useful 
graphics coordinates for display. 
Assuming the arms are of equal length, 
initialise lengthl and length2 to 1923 
at the start of the program (if they 
are unequal, set the long one to 19023, 
and amend the value of the other to be 
in the same ratio as the actual 
lengths). Because of the way the angles 
are measured, the arms are configured 
and the position of potentiometer One, 
the actual screen X%,Y% value for the 
pointer is given by: 


INT (PX) 
INT(length2 - PY) 


CO oe 


X 
Y 


GRAPHICS TABLET PROGRAM 

Combining all of the above leads to 
the following program that provides a 
basic Graphics Tablet input facility, 
including automatic calibration before 
use. PROCinit goes through the process 
of calibrating the zero and ninety 
degree arm positions with your help, 
and  PROCgetXY then returns the current 
X,Y position of the pointer in the 
variables X% and Y%. PROCinit can be 
simplified if you wish (with some loss 
of day to day accuracy) by equating 
"calpoint(1 to 4)' with the numeric 
values of  'armlzero',  'armlninety', 
'arm2zero' and 'arm2ninety' noted in 
the manual calibration exercise, and 
deleting PROCcalibrate and the calls to 
it, thus avoiding the slightly tedious 
setting up operation. The main program 
loop runs forever, and provides three 
basic commands: 
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"Clear Screen (& Pen Up) 
U Pen Up 
D Pen Down 


with a cross-hair cursor always showing 
the Pen position (if on screen). It may 
easily be modified and extended, for 
example by using the keyboard to 
provide additional commands for colour 
switching, coordinate capture, scaling, 
etc. 


FINISHING TOUCHES 

The base board can be provided with 
small feet so that it can sit on a 
table top, providing clearance for the 
body of the board's potentiometer. The 
feet can be made from small scrap 
blocks of wood, glued on. If you make 
your own feet it may be useful to 
arrange that the board slopes slightly 
towards you by adjusting the height 
appropriately. 


The potentiometer shafts may be cut 
shorter, almost flush with the top 
surfaces of the arms, and small 
circular paper or cardboard discs glued 
onto the ends of the shafts. If these 
discs are marked with calibration 
points corresponding to the positions 
of the arms any subsequent slippage of 
the arm/shaft joints will be obvious, 
and the joint can be repaired and the 
unit re-calibrated if necessary. 


The base board surface may be marked 
out with horizontal and vertical lines, 
especially those showing the 
corresponding 'screen window', and with 
reference points for placing A4 and 
other standard paper sizes on the 
board. It is also desirable to provide 
horizontal and vertical 'calibration' 
lines for the two arms, for use during 
the initial auto-calibration operation 
(PROCinit). 
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1Ø REM Program GRAPHT 
2Ø REM Version BØ.2 
30 REM Author J.B. Miller-Smith 
40 REM BEEBUG DECEMBER 1984 
50 REM Program subject to Copyright 
69 : 
100 ON ERROR GOTO 1779 
118 MODE! 
1298 PROCinit 
130 REPEAT 
140 key-INKEY (Ø) — 
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15Ø 
TO19Ø 
16Ø IF key=ASC ("U") THEN pen=4 
17Ø IF key=ASC("D") THEN pen=5 
18Ø : 
19Ø PROCgetXY 
200 PROCcursor (X%,Y%) 
21Ø PLOT pen,X%,Y3 
220 UNTIL FALSE 
230 END 
240 : 
1000 DEF PROCinit 
1010 : 
1020 REM Limit ADC to 2 Channels 
1030 *FX16,2 
1040 : 
1050 REM Change 'lengthl$' and/or 
1060 REM 'length2$' to suit hardware 
1070 lengthl$-1923 
1880 length23=1 923 
1890 : 
11ØØ REM Cursor off, set colours, & 
1118 REM DIM calibration points array 
1120 VDU 23,1,0;0;0;0; 
1138 VDU19,1,7,0,0,0,19,2,3,0,0,0 
1146 DIM calpoint (4) 
1150 : 
1160 REM For both Ø & 98 deg. positions 
1178 REM on each arm, average the ADVAL 
1189 REM value over 10 readings to help 
1190 REM remove jitter. Prompt user to 
1208 REM position arms as required. 
1218 PROCcalibrate("l horizontal along 
board",1,1) 
1220 PROCcalibrate("l vertical down bo 
ard",2,1) 
1230 PROCcalibrate("2 in line with Arm 
1' 5,5352) 
1249 PROCcalibrate("2 at right angles 
to Arm 1",4,2) 
1250 : 
1268 PROCreset 
1270 ENDPROC 
1280 : 
1299 DEF PROCcalibrate (prompt$,posn,ch 
an) 
1300 PRINT'"Make arm ";prompt$;"."'"pr 
ess any key, wait for Beep."' 
1310 REPEAT UNTIL GET 
1320 calpoint(posn)=Ø 
1330 FOR I$-1 TO 16 
1340 calpoint (posn) =calpoint (posn) +ADV 
AL (chan) 


IINTS HINTS HI 
BETTER LOADING WITH TENSAI TAPE RECORDERS - R. Barnes 


IF key=ASC(" ") THEN PROCreset:CO 1359. 


NEXT I% 
1360 VDU7 
1370 calpoint (posn)=calpoint (posn) /10 
1380 ENDPROC 
1390 : 

1400 DEF PROCgetXY 

1410 : 

1429 REM See text for explanations 

1430 armlangle=(ADVAL (1) -calpoint(1))* 
9Ø/(calpoint(2)-calpoint(1)) 

1440 arm2angle- (ADVAL (2)-calpoint(3))* 
90/ (calpoint(4)-calpoint(3)) 

1450 armlangle-RAD (armlangle) 

1469 arm2angle-RAD (arm2angle) 

1479 X$= INT (Length13*COS (armlangle) +le 
ngth2$*COS (armlangle+arm2angle) ) 

1489 Y$-length2$-INT (lengthl%*SIN (arm 
langle)-*length2$*SIN (armlangle+arm2angl 
e)) 

1490 ENDPROC 

1500 : 


. 15318 DEF PROCcursor (cx%,cy3) 


1520 MOVE cx$,cy$ 

1530 GCOL1,2 

1540 PROCdrawcross 

1550 MOVE oldcx$,oldcy$ 
1560 GCOL2,1 

1578 PROCdrawcross 

1588 oldcx%=cx%:oldcy%=cy% 
1598 GCOL@,1 

16ØØ ENDPROC 

1610 : 

1620 DEF PROCdrawcross 
1630 PLOT Ø,16,Ø 

1640 PLOT 1,-32,9Ø 

1650 PLOT 0,16,16 

1660 PLOT 1,Ø,-32 

1670 PLOTØ,Ø,16 

1680 ENDPROC 

1699 : 

1780 DEF PROCreset 

1718 CLS 

1720 pen-4 

1730 oldcx%=2ØØØ 

1740 oldcy$-29000 

1750 ENDPROC 

1760 : 

1778 ON ERROR OFF 

1780 MODE 7 

1790 IF ERR<>17 REPORT:PRINT " at ">. ERL 
1800 END 


If you have a cheap Tensai tape recorder and are having problems getting 
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tape files to load, then try soldering a 0.1 microfarads capacitor in series with a 
47K ohm resistor across the 'remote' jack socket. 
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programs 


le  RUN-TIME ERRORS 
Run-time errors 
are those faults 
which occur during 
| | the execution of a 
| | program, but which 
| are not due to the 
| Basic interpreter 
| failing to under- 
| | stand and execute 
| | the statements 
making up the 
program, except 
perhaps in special 
circumstances 。 


| | Run-time errors 
| may cause all kinds 
| | of problems and 
| | display all sorts 
| | of symptoms as you 
| | try and 
| | program, and a 
| | different kind of 
detective work may be needed to track 
them down, find the cause, and rectify 
it. Let's look first at some run-time 
problems that can still be due to 
typing or similar mistakes, and which 
are related to the 'No such variable’ 
type of fatal error discussed last 
month. 


360 ... 

STØ wees 

380 droprat - startrate * gravity * 
time 

398 4x» 

400 newheight = time * droprate 

410 soo 


This example from the last section 
was used to illustrate the effect of a 
typing error in one line (389) causing 
a fault to be reported in another line 
(400). The situation would be different 
if the variable 'droprate'  (spelt 
correctly) had already been used or 
initialised earlier in the program, 
around line 2ØØ say, as part of another 
subtask. In this case line 400 will 
execute without reporting any error, 
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by looking this month at run-time errors, 
detection and correction. 


run the 
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(PART 2) 


by Ben Miller-Smith 
Ben  Miller-Smith continues with the problems of debugging 


their 


but will not be using the expected 
current value of  'droprate' that was 
supposed to be calculated in line 388 - 
it will still be the old (line 269) 
value: no errors will be reported, but 
the program will not operate correctly. 


Other run-time errors can be due to 
attempts by the program to work out 
impossible arithmetic or other results, 
usually because the actual value of one 
or more variables used in the program 
has taken on an unexpected value. 
Examples include: 


Division by zero attempted in an 
expression. 


Square root of a negative number 
attempted. 


Attempting to evaluate the LOG of 
a negative number. 


Exceeding the EXP range (up to 88 
is valid). 


You may quickly find that the 
commonest cause of such errors is the 
data input into a program by you or 
other users. It is surprisingly easy to 
"crash" many programs by entering 
unlikely numbers when some input is 
requested. This reflects the fact that 
most programmers are somewhat careless 
(or optimistic) in their assumptions 
about the validity of data that will be 
given to their programs by users. 
Children especially are likely to enter 
all sorts of funny data, consciously or 
unconsciously, but even adults can make 
typing errors when entering numbers or 
other information. A good quality 
program will trap such potential errors 
and report them to the user, and give 
him another chance to re-enter the data 
before continuing with the program - 
nothing is more annoying than to have a 
program crash after several minutes of 
use just because of a typing error, 
especially if you have spent that time 
carefully typing in data. l 
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due to the incorrect use of VDU 
instructions, either through a 
misunderstanding of the required 
format, or through a typing error. A 


VDU command in the range VDU2Ø to VDU29 
that has accidentally been entered with 
the second digit missing (thus creating 
a VDU2) will cause the program to try 
Outputting text to a printer, which if 
not present or enabled, will cause the 
program to hang up once it has filled 
the printer buffer (and probably output 
some text to the screen). Pressing 
Escape at this point may give you a 
clue as to the location of the faulty 
VDU statement, but not if the incorrect 
VDU command is part of an 
initialisation procedure (defining some 
characters with a VDU23 for example). 
There is little for it but to look 
carefully through all the lines 
containing VDU statements, and check 
them carefully. 


Strange effects can arise from the 
incorrect format of a VDU instruction, 
either because of one or more missing 
parameters or an incorrect parameter 
separator (some VDU instructions 
Separate parameters by a comma (,), 
others by a semicolon (;) - always 
check this carefully). For example: 


lø VDU 19,1,1,9 
20 PRINT "VDU Format ? " 
30 END 


will result in the display of "U Format 
?", which is a trifle unexpected. This 
happens because the VDU instruction at 
line 20 is missing two parameters, and 
thus the next two characters (the 'VD' 
of line 20) to be output to the screen 
are taken as the two extra parameters 
required. 


Sometimes a bug in a program defies 
all efforts to find it by the normal 
methods as outlined above, and a more 
drastic approach becomes necessary. In 
these cases it is usually a quite 
subtle error that is causing the 
problem, and it may only occur 
infrequently, and give you little 
information as to where or why. If you 
can find some particular combination of 
inputs or other circumstances that 
always reproduces the errors then that 


is half the battle, 
always easy. 
Trace the operation of the program, 


ome run-time software bugs can be 


but this is not 
It becomes necessary to 


either in whole or in part, using one 
or both of the following techniques. 


The BBC Basic command TRACE ON will 
cause every line number executed to be 
printed on the screen in square 
brackets during the execution of the 
program. This makes a real mess of the 
screen, especially if the program is 
also outputting text or graphics as it 
runs (but see the TRACER program in 
this issue for a better solution), but 
does at least enable you to follow the 
Sequence of events as the program is 
executing. This may well give youa 
clue to the problem if you can spot an 
unexpected departure from the expected 
sequence, especially if you can create 
the troublesome error condition with 
the relevant inputs or whatever. As a 
first line of attack, proceed as 
follows. 


Add a VDU14 statement to the program 
as early as possible, but after any 
mode changes. This switches on the 
"paged' mode of operation so that no 
more than a screenful of information is 
printed at any one time, and the 
program and trace output will remain on 
the screen until you press the Shift 


key - you thus have time to study the 
display. Type TRACE ON, and run the 
program. 


If you have a printed listing of the 
program then you should be able to 
follow the course of the program's 
execution in as much detail as 
necessary, otherwise make mental or 
written notes of anything that strikes 
you aS odd, especially if the elusive 
fault occurs (in which case make extra 
careful notes of the line numbers 
executed leading up to that point). Go 
back to a listing of the program and 
follow the course of execution 
indicated by the trace listing of 
executed line numbers. Look especially 
for conditional or similar tests 
(IF-THEN etc.) which do not behave as 


expected, or for loops (FOR-NEXT or 
REPEAT-UNTIL) that do not terminate 
correctly. 


This process may be sufficient in 
itself to identify the problem and give 
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you a flash of insight as to the - 


necessary cure, but in some cases you 
may have to use the trace facility more 
selectively, perhaps coupled with some 
additional information about the run 
time value of one or more variables. 
This can be done by including TRACE ON 


and TRACE OFF statements at selected 
points in the program to switch the 
trace listing on and off and, if 
necessary, by including additional 
statements in the program that enable 
you to examine the value of one or more 
variables in the program at strategic 
points. The simplest way of doing this 
is often to include extra lines of the 
form: 


135 IF droprate > 100 THEN PRINT 
"droprate =";droprate : REPEAT UNTIL 
GET 


if you suspect that the value of 
'droprate' may be being miscalculated 
at some point, and values over 100 are 
invalid. On executing this line the 
current value of  'droprate' will be 
printed if it exceeds 100, and you then 
have the option of pressing a key to 
continue, or pressing Escape. After an 
Escape you will also have the option of 
asking for the value of any other 
variables by using a direct command of 
the form: 


PRINT variablel,variable2,variable3 


which may help to establish what has 
gone wrong. 


The above line of attack can 
sometimes be improved by including an 
extra procedure in the program that 
will display on the screen (in an 
unused corner say) the value of one or 
more variables at strategic points in 
the program. An example of such a 
procedure could be: 


9000 DEFPROCvartrace(vl,v2,v3,posx$, 
posys) 

9010 LOCAL cursx$,cursy$ 
9020 cursx$-POS: cursy%=VPOS 


9030 PRINTTAB (posx$,posy$) ; v1, v2, v3 
9040 REPEAT UNTIL GET 

9050 PRINTTAB (cursx$,cursy$); 

9060 ENDPROC 


This procedure stores the current 
position of the text cursor in 'cursx$' 
and 'cursy$', and prints the value of 
the three variables named in the 
procedure call at position 'posx$' and 
'posy$' also given in the call. It then 
awaits any key depression (giving you 


time to note the variable values), 


restores the original text cursor 
position, and exits. 


Calls to this procedure can be 
scattered around in the program to 
check on the current value of relevant 
variables - a typical call could be: 


120 PROCvartrace(droprate,gravity,Ø, 
5,20) 


which would print the current values of 
'droprate' and  'gravity' (and a zero, 
to make up the third parameter) at text 
cursor position (5,28). Note that you 
can make calls to this procedure 
conditional on the value of other 
variables or situations in the program 
by including the call in an IF 
statement if necessary. 


3. CONCLUSION 

Fault finding in BBC Basic programs 
is usually not too difficult, thanks to 
the powerful and ‘user-friendly’ error 
handling software built into the 
system, but there are occasions in 
which the reported fault is misleading, 
and some detective work may be 
necessary. The more practice you have 
in debugging programs, the quicker 
you will recognise the different types 
of error that may occur. There is a lot 
to be said for deliberately introducing 
errors into a known, working program 
(better still, get someone else to do 
it), and experimenting with the 
debugging techniques covered in these 
notes. Bugs can be elusive, but they 


are there to be found. Happy Hunting! == 


MACROS IN ASSEMBLER 


If you are using functions to generate macros in the Beeb's 65Ø2 assembler, you 
will find it more reliable to use EQUS to call your code (and return a null string) 


than to use OPT (and return the current 
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a Å by O.R. Thomas 


Now it's time for some light-hearted relief from zapping and 
blasting aliens. No sooner has your Christmas pudding settled than 
you are off to rescue 'Hideous Hilda' from the flames of the dragon, 
in this fast and exciting action game from O.R. Thomas. 


The idea of the game is to run along 
each level, jumping over the moving 
hole to collect the key which will 
allow George to climb the ladder up to 
the next level. George needs to reach 
the top level to free 'Hideous Hilda' 
before the dragon's flame reaches her. 
If you succeed in freeing Hilda, you 
proceed onto the next screen, where in 
addition to moving holes in the floor, 
you will have to face the additional 
hazard of arrows being fired just above 
your head. 


The keys to use to play this game 
are 'Z' and 'X' for left and right, 
plus '/' to climb the ladders and 
'Shift' to jump. There are nine 
different skill levels ranging from 1， 
which is fast, to 9 which is slow. As 
you complete each screen, the game 
automatically gets faster and faster. 


Remember to take extra care when 
typing in the character and string 
definitions, as mistakes here will 
corrupt the screen display when you run 
the program. 


So now you are ready to undertake 
your perilous quest, to thwart the 
wicked dragon by reaching 'Hideous 
Hilda' in the nick of time. 
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1Ø REM PROGRAM GEORGE 
2Ø REM VERSION BØ.2 
3Ø REM AUTHOR O.R. Thomas 
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49 REM BEEBUG DECEMBER 1984 
SØ REM PROGRAM SUBJECT TO COPYRIGHT 


100 ON ERROR GOTO 295¢ 

110 MODE7 

120 PROCinstructions 

130 hi$-0:MODE 7:REPEAT 

140 PROCskili:PROCvariables 

150 FOR lives$-2 TO Ø STEP-1 

160 MODE5:PROCcharacters 

178 PROCSCreen: PROCsetup 

180 time%=Ø:totaltime%=Ø 

190 REPEAT:time%=time%+1 

200 IF time%>=pause% time%=Ø:totaltim 
e$=totaltime%+1:VDU5:GCOLØ, 2 :MOVE (total 
time%*32)+32,816: PRINTf lame$: VDU4 

21Ø IF totaltime%=37 dead$-TRUE 

220 PROCman 

230 IF NOT jump$ AND xpos%=holepos$ d 
ead$-TRUE:GOTO290 

240 PROChole 

250 IF NOT jump$ AND xpos%=holepos% d 
ead$=TRUE: GOTO290 

260 IF xpos%=keypos% AND ypos%=keyhei 
ght% key$-TRUE:SOUND1,-15,100,1:sScore$- 
score$t+59 : PROCscore : keypos3=20 

270 IF arrow$ AND xpos%=arrowpos% AND 
ypos$-keyheight$ dead$-TRUE:GOTO290 

280 IF arrow$ PROCarrow 

290 UNTIL dead$:PROCdeath 

300 FOR ag$-1 TO 15:SOUNDØ,-15+ag%,1Ø 
Q,2:NEXT 

319 jump$-FALSE: jumpno$-0:ychange£-0: 
xchange$- a 


a PRO Store : NEXT 
BT. 7) STRINGS (12, 
B ";TAB(4,1 


:350 IF score$2hi$ ^ 


PIE” OS="N":MODE j 


90 m d 
1008 DEF PROCvariables 
1910 key$-FALSE:dead$-FALSE:score2- 
19020 level$-1:jump$-FALSE: jumpno2-0 
1030 arrow%=FALSE:arrowpos%=1Ø 

1040 ENDPROC 

1858 : 
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1ØGØ DEF PROCcharacters 


1070 VDU23,224,56,56,56,48,62,62,56,56 
:VDU23,225,56,56,56,48,48,48,48,56 

1Ø8Ø VDU23,226,28,28,28,12,124,124,28, 
28:VDU23,227,28,28,28,12,12,12,12,28 
1999 VDU23,228,60,60,189,153,255,255,6 
0,60:VDU23,229,60,60,60,36,36,36,36,102 
1190 VDU23,230,0,0,0,0,24,44,118,175 
1119 VDU23,231,32,32,48,60,251,255,254 
,252:VDU23,232,248,252,255,254,224,96,1 
12,80 

1120 VDU23,233,0,16,32,96,224,96,32,16 
:VDU23,234,60,60,126,126,255,255,36,192 

1130 VDU23,235,96,97,149,159,159,144,9 
6,96:VDU23,236,255,255,255,129,66,36,24 
1 255 

114Ø VDU23,237,129,129,129,255,255,129 
,129,129:VDU23,238,0,0,0,99,254,99,0,0 
115ø VDU23,239,0,0,0,198,127,198,0,0: VD 
U23,240,129,129,129,129,129,129,129,129 
1160 VDU19,3,4;0; 

1178 VDU23;8202;0;0;0; | 
118Ø rightS$S=CHRS17+CHRS$1+CHRS224+CHRS1 
Ø+CHRS8 +CHRS17+CHRS2+CHRS225 

119Ø lefts=CHR$17+CHR$1+CHR$226+CHRS1Ø 
4CHRS84CHRS1 7+CHRS2+CHR$227 

1200 stillS=CHRS17+CHRS1+CHR$228+CHRA | 
Ø+CHRS8+CHRS1 7+CHRS2+CHRS$229 

121Ø deadS$=CHR$32+CHR$1 9+CHRS$8+CHR$17+ 
CHRS$24CHR$230 

1220 dragon$=CHR$1|7+CHR$1+CHR$231+CHRS 
1Ø+CHR$8+CHR5232 

123Ø flameS=CHRS$1 7+CHRS2+CHRS$233 

1249 maiden$=CHRS17+CHR$2+CHR$228+CHRS 
1 0-+CHRS$8+CHR$1 7+CHRS1+CHRS$234 

1250 keyS=CHR$17+CHR$2+CHR$235 

1260 safefloor$=CHR$1|7+CHR$1+CHR$236 

1270 danger £loor$=CHR$17+CHR$3+CHR$236 

1289 Ladder $=CHR$1 7+CHR$2+CHR$237 

1290 doubleladder$=CHR$1 7+CHRS2+CHR$23 
7+CHRS1Ø+CcHRS8+CHRS237 
1300 arrowleftS=CHR$1] 7+CHRS2+CHR$238 
1319 arrowr ight$=CHR$1 7+CHR$2+CHR$239 
1320 gap$=CHR$17+CHR91+CHR$5249 


1330 blank$=CHRS$32+CHR$1 Ø+CHRS8+CHRS32 
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134Ø ENDPROC | 

135Ø : 

136Ø DEF PROCscreen 

1370 GCOLO,130:VDU24,0;847;1279;1023; 
1380 CLG:VDU24,0;16;1279;80; :CLG 

13990 GCOL0,128:VDU24,8;855;1271;1015; 
1400 CLG:VDU24,8;24;1271; 72; :CLG 

14148 VDU24,0;0;1279;1023; : VDUS 

1420 GCOLØ,1:MOVE24, 991 

1430 PRINT"George & The Dragon" 

1440 GCOLØ,2:MOVE32, 995 | 

1450 PRINT"George & The Dragon" 

1460 VDU4: PROCSCOre 

1470 PRINTTAB (6,3) "SCORE :" 

1480 PRINTTAB (9,4) "HI su 

1490 PRINTTAB (6,30) "LEVEL ";level$ 
1500 PRINTTAB(Ø,6)dragon$ 

1510 PRINTTAB(19,6)maiden$ 

1520 PRINTTAB(1,26)still$ 

1530 xpos%=1:ypos%=26 

1540 PRINTTAB(Ø,8) STRINGS (20,dangerflo 
ors) | 

1550 FOR ah%=12 TO 28 STEP 4 

1560 PRINTTAB (Ø ,ah$) STRINGS (20, safeflo 
or$) 

1570 PRINTTAB (4,ah2) STRINGS (12,dangerf 
loor$) 

1580 NEXT:anyx$-18 

1590 FOR ah%=8 TO 24 STEP 4 

1600 FOR anyy$-ah$ TO ah%+3 

1610 PRINTTAB(anyx$,anyy$)ladder$ 

1620 NEXT 

1630 IF anyx$-18 anyx$-l ELSE anyx$-18 
1640 NEXT 

1650 ENDPROC 

1660 : 

1670 DEF PROCscore 

1680 COLOUR2 

1690 IF lives%<1 GOTO 1730 

1700 FOR ah%=@ TO lives$-| 

1718 PRINTTAB (ah$+1 ,3) right$ 

1720 NEXT 

1730 PRINTTAB(lives%+2,3) blank$ 

1740 PRINTTAB (14,3) ;score% 

175Ø PRINTTAB (14,4) ;hi$ 

1760 ENDPROC 

1778 : 

1780 DEF PROCman 

1798 IF jumps PROCjump: GOTO1 86g 

1888 xchange$-0 

1818 ychange$-0 

1820 IF INKEY(-98) AND NOT jumps xchan 
ge$-- 

1830 IF INKEY(-67) AND NOT jumps xchan 
ge$-1 

1840 IF INKEY(-1) jump$-TRUE 

1850 IF INKEY(-105) AND POINT (xpos$*64 
, (32-ypos%) *32+36)=2 AND key% PROCclimb 
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1860 IF xchange%<>Ø OR jump% PRINTTAB( 
xpos$,ypos$)blank$:IF POINT (xpos%*64, (3 
2-ypos%) *32+36)=2 AND NOT jump% OR POIN 
T(xpos$*64, (32-ypos%) *32+4)=2 PRINTTAB ( 
xpos%,ypos%) doubleladders 

1870 IF jumpno$=3:jumpno%=Ø:jump%=FALSE 

1880 xpos%$=xpos%+xchange% 

1890 yposs=ypos%+ychange% 

1900 IF xpos%<Ø xpos%=Ø 

191Ø IF xpos%>19 xpos%=19 

1920 IF xchange$-1 PRINTTAB (xpos%,ypos 
$) rights 

1930 IF xchange%=Ø PRINTTAB (xpos$ ,ypos 
$)still$ 

1940 IF xchange%=-1 PRINTTAB (Xpos$ , ypo 
$%) lefts 

1958 ENDPROC 

1960 : 

1978 DEF PROCClimb 

1988 keyS=FALSE 

1990 FOR ah$-1 TO 4 

2000 SOUND1,-15,50*ah$,2 

2010 IF ah%=1 PRINTTAB (xpos% , ypos3+1 ) 1 
adder $: GOTO2939 

2020 PRINTTAB (xpos%, ypos%+1 ) doubleladd 
ers 

2030 ypos$-ypos$-] 

2040 PRINTTAB(xpos%,ypos%)stillS 

2050 NEXT 

2060 score$-score$410:PROCscore 

2070 IF ypos%=6 CLS:level%=level%+1l:sc 
ore$=score%+ ((37-totaltime%)*1Ø) : PROCsc 
reen:totaltime$-0:1F pause%>5 pause$-pa 
use$-1 

2080 PRINTTAB (arrowpos$,keyheight£);CH 
R$32 

2090 IF POINT (arrowpos$*64, (32-keyheig 
hts) *32+4)=2 PRINTTAB(arrowpos%,keyheig 
ht3) ladders 

21ØØ PROCsetup 

211@ ENDPROC 

2120 : 

2130 DEF PROCjump 

2148 jumpno$-jumpno$-1 


2150 


IF jumpno%=1 ychange%=- 

2168 IF jumpno%=2 ychange%= 

2176 IF jumpno$-3 ychange$-] 

2180 SOUND1,-1Ø,14Ø+ (30 *ychange$) , 1 

2190 ENDPROC 

2200 : 

2210 DEF PROCsetup 

2220 IF ypos$«26 PRINTTAB(4,ypos%+6) ST 
RINGS (12, safefloorS) 

2230 holepos%=1Ø:holedir%=1 

2240 keypos$-RND (12) +3:keyheight3=ypos 
$-1 

2250 keyS=FALSE: PRINTTAB (keypos$ , ypos% 
-1) keys 

2260 IF level%>1 arrow$-TRUE:arrowpos$ 
=RND (18) : IF arrowpos$«10 dir%=1 ELSE di 
r$-- 

2270 ENDPROC 

2280 : 

2290 DEF PROCarrow 

2300 PRINTTAB (arrowpos$,keyheight£);CH 
R$32 

231Ø IF arrowpos%=keypos% PRINTTAB (arr 
owpos’ ,keyheight%) ;keyS 

2320 IF POINT (arrowpos$*64, (32-keyheig 
hts) *32+4)=2 PRINTTAB(arrowpos$,keyheig 
ht%) ladders 

2330 arrowpos%=arrowpos$+dir% 

2340 IF dir$-1 AND arrowpos%>19 dirg=- 
liarrowpos%=19 

2350 IF dir$--1 AND arrowpos%<Ø dir%=1 
sarrowpos$-0 

2360 IF dir$-1 PRINTTAB (arrowpos$,keyh 
eight) arrowrights 

2379 IF dir$--1 PRINTTAB(arrowpos%,key 
height%) arrowlefts 

2380 ENDPROC 

2390 : 

2400 DEF PROChole 

2419 PRINTTAB(holepos%,keyheight%+3)da 
nger floors 

2420 holepos3=holepos3+holedir3 
IF holeposs>15 holepos3=15:holedi 


IF holepos%<4 holepos%=4:holedir% 
PRINTTAB (holepos%, keyheight3+3) ga 
ENDPROC 


DEF PROCdeath 

2490 IF totaltime$-37 PRINTTAB(19,6)de 
ad$:GOTO 2550 

2500 REPEAT 

2510 PRINTTAB (xpos%,ypos%)CHRS$32 

2520 ypos%=ypos%+1 

2530 PRINTTAB(xpos%,ypos%)stills 

2540 UNTIL POINT (xpos3*64+32, (32- (ypos 
3+2) )*32-4) >Ø OR ypos%=27 

2550 PRINTTAB(xpos%,ypos%)deadS 
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2560 ENDPROC 

257Ø : 

2580 DEF PROCinstructions 

2590 CLS 

2600 VDU23;8202;0;0;0; 

2610 PRINT'CHRS129;CHRS157; TAB (8) ;CHRS 
131;CHR$141; "GEORGE AND THE DRAGON" 

2620 PRINTCHRS$129;CHRS$157; TAB (8) ;CHR$1 
31;CHRS141; "GEORGE AND THE DRAGON" 

2630 PRINTTAB(13)CHR$134;"by O.R. Thoma 
eg it 

2640 PRINTCHRS133;" Help George to do 
dge arrows and leap"CHR$133;"over hol 
es as he rushes to grasp the"CHR$133; 
"keys allowing him further up th 
e"CHRS133;"battlements. But hurry - 

you must"; 

2650 PRINTCHRS133;"rescue Hideous 
Hilda before  the"CHR$133;"dragon's 
flames reach her." 

2660 PRINT'''TAB(4)CHRS133;"The contro 
ls are as follows :"'TAB(13)CHRS$131;"2 

- left"'TAB(13)CHR$131;"X  - rig 
ht"'TAB(13)CHRS$131;"/ -  climb"'TAB( 
9)CHRS131;"SHIFT  - Jump" 

2670 PRINTTAB (@,24)CHRS1 29 ;CHR$157; TAB 
(7) CHRS136;CHRS131;"PRESS SPACE TO CONT 
INUE"; 


2719 : 


45 


272Ø DEF PROCskill 
2730 VDU23;8202;0;0;0; 
2740 PRINTTAB (9,14)CHRS1 41 ;CHR$129; "SK 


ILL LEVEL (1-9) :" 


2750 PRINTTAB (9) CHRS$141 ;CHRS131; "SKILL 
LEVEL (1-9) :" 

2760 *FX15,1 

2770 pause$-5* (GET-48) 

2780 IF pause$«6 OR pause%>14 GOTO 2770 
2790 PRINTTAB (29,14) ;pause$-5 

2800 PRINTTAB(29,15);pause$-5 

2819 TIME=Ø:REPEAT UNTIL TIME>7Ø 

2820 ENDPROC 

2830 DEFPROCscodisp 

2840 VDU22,7 

2850 FORA$-2TO3 

2860 PRINTTAB (9, A$)CHR$141;CHRS (127+A% 


); "YOUR SCORE WAS " STRS (Scores) 


287Ø NEXT 
2880 PRINT''':FORA$-1TO2 
2890 PRINTTAB (1) CHR$1 41 ;CHRS (132+A3) ; 


"ANOTHER GAME ?";:NEXT 


2900 *FX15,1 
2910 OS=GETS:PRINTCHRS11 ; OS; CHR$8 ;CHRS 


19:05 


2920 ENDPROC 
2930 : 


2948 ON ERROR OFF:MODE 7 
2950 IF ERR-17 END 
2960 REPORT:PRINT" at line "FERL: END mg 


2680 *FX15,1 
2690 REPEAT UNTIL GET-32 
2700 ENDPROC 


COLOURFUL GCOL PARAMETERS - Paul Watts 

As you may know, you can get the operating system to draw in two striped 
colours by using the GCOL statement with silly parameters. Here is a routine 
(non-Tube compatible as it stands) that allows you to specify the two colours 
yourself. The displayed colours will, of course, be dependent upon the current 
chosen mode. 

DEF PROCgcol(option,first,second) LOCAL a,b 

GCOL option,first:a-?&359 AND &AA:GCOL option,second 

b=?&359 AND &55:?&359=a + b:ENDPROC 
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READING SIDEWAYS ROMS 
If you want to read a byte x from ROM y, then use the function below, with x 
as the first parameter and y as the second: 
DEF FNpeek (!&F6,Y%3) = USR(&FFB9) AND &FF 
For example, to read the byte at &89AB in ROM 7, then the following would be used: 
PRINT FNpeek(&89AB,7) . =] 
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STRANGE VARIABLES - Tony Walsh 

If you have Toolkit and you wish to make a program unalterable, then try 
changing variables to built in words such as PRINT (with the search and replace 
option), but omit the £ sign to indicate that it is a Basic keyword. Toolkit then 
replaces your variable for one spelt like the Basic keyword, but not tokenised. Most 
attempts to change the program will result in the variable being tokenised, and thus 
Basic producing an error when the program is ru. 
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32k by A. Hayden 


Have you ever want 


to play a fruit machine without the risk of 


losing a pocketful of money? Well BEEBUG gives you the chance to do 
just that with A.Hayden's computerised and colourful version. 


Fruit Machine is a colourful (and 
noisy) game in which the player 
attempts to increase their wealth by 
gambling their money. You start the 
game with £2.ØØ, and each spin of the 
reels costs 1Ø pence, with a chance of 
winning anything from 20 pence to £3.00 
(and not just in tokens either). 


There are three reels with eight 
different symbols (there are a total of 
20 symbols on each reel, but some occur 
more times than others) and three of 
these symbols 'are displayed on each 
reel at any one time. The middle line 
of each displayed reel is called the 
win line, and all but one of the wins 
has to occur by getting two of the same 
symbol on the first two reels or by 
getting all three the same. There is 
however one exception to this which is 
the BEEBUG symbol. To win with this, 
you only need to have the symbols 
showing, and not just on the win line. 


INSTRUCTIONS 

To start the reels spinning press 
the 'S' key. At this point three things 
may happen; a 'Shuffle', a  'Hold', or 
the reels just spin. Given the choice, 
you can hold each reel by pressing the 
appropriate number (e.g pressing 1 and 
3 will hold reels 1 and 3) and pressing 
C will cancel the holds. If you get a 
shuffle, then pressing the space bar 
will shuffle the reels before offering 
you a hold (this does not cost you any 
money and will spin the reels around 
approximately halfway). If you don't 
wish to shuffle the reels (if you 
already have a win) then you can press 
C to cancel the shuffle, and then hold 
your win. 


When you get a win you will be given 
a chance to gamble your winnings (if 
they are 20p, 40p or 680p). To gamble, 
press C (to double your winnings or 
lose it all) or press S to collect your 
winnings. : 
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If after the reels have stopped 
spinning you get a 'Feature Stop", you 
can then press F which will randomly 
select a number (displayed on the 
Screen) between 1 and 19. This number 
represents the number of available 
'nudges', and you must then try and 
nudge the reels to produce a win. To 
nudge a reel down you simply press the 
corresponding number key (1, 2 or 3), 
and to nudge a reel up you simply press 
Shift and a number key together. 


If you are not a regular and 
compulsive player of fruit machines 
some of these terms and instructions 
may sound confusing. As soon as you 
start playing everything will quickly 
become clear and you will probably 
become as addicted as the next person. 


1Ø REM PROGRAM FRUIT 


20 REM VERSION B@.7 
30 REM AUTHOR  A.HAYDEN 
40 REM. BEEBUG DECEMBER 1984 
50 REM PROGRAM SUBJECT TO COPYRIGHT 
698 : 
108 ON ERROR GOTO 3830 
110 MODE 7:X=RND(-TIME) 
120 DIM F$(8),X$(3) , R$(3) , RLS (3) ,H2 (3 
) ,; PR$ (3) 
130 REPEAT: PROCchars 
140 MODE2: PROCvar : PROCset 
150 REPEAT:PROCrol11 
160 IF F%=Ø OR DONS=Ø THEN PROCcheck 
178 F$-0:DON$-0:UNTIL MN%=Ø OR MN 
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18Ø PROCmore:UNTILØ 
19Ø END 


2ØØ : 

1ØØØ DEF PROCvar 

1Ø1Ø RESTORE 381Ø 

1020 FOR A%=Ø TO 7:READ B%:C%=A%*4+224 
19030 FS (A2) =CHRS17+CHRS (B2) +CHR$17+CHR 
$1284CHRS (C£) +CHRS (C%+1 ) +CHRS8+CHRS8+CH 
RS1Ø+CHRS (C242) +CHRS (C3+3) 

1Ø4Ø NEXT 

1Ø5Ø RLS (1)="AGCRMPCMAOGCPBGCRMAP" 
196Ø RLS (2) ="MRBAOCGPCAMCGPAGRMCP" 
1Ø7Ø RLS (3) ="CRPMBACMBOAPGRC PCGMA" 
1080 FOR A%=1 TO 3:PR% (AZ) =RND (18) :RS ( 
%) =MIDS (RLS (A$) , PRS (AS) , 3) :H$ (AS) =Ø: NE 
XT 

1998 MN%=2@:SS="RMGAPOBC" 

1100 PRIZE$-0:X-4:F$-0:DON$-0 

1118 ENDPROC . 

1129 : 

1130 DEF PROCroll:*FX15,1 

1140 REPEAT GTS=GETS: UNTILGTS="S": GM3=@ 
115Ø IF RND(8)=1 THEN PROCshuffle: PROC 
hold: GOTO117Ø 

1160 IF RND(X)=1 THEN PROChold 

1178 X-4:X$ (1) =RND (19) +2Ø 

1180 Y%=RND(8)+3:X% (2) =X% (1) *Y$ 

1199 X$ (3) =X% (2) *Y$:MN$-MN$2-1 

1200 PROCmoney (MN%) 

1210 FOR R3=1 TO X%(3) :FOR S%=1 TO 3 
1220 IF R$-X$(S$) AND NOT H$(S$) THEN 
SOUND Ø,-15,4,2 

1230 IF H$(S$) OR R$»-X$(S$) THEN 1319 

1248 PR%(S%)=PR%(5%)-1 

1250 IF PR$(S$)-0 THEN PR% (5%) =2Ø 

12690 RS(S%)=MIDS (RLS (S$) , PR$(S$) , 1) +RS 
(S3) 

1270 RS(S%)=LEFTS (RS (53) ,3) 

1280 FOR A$-1 TO 3 

1290 PRINTTAB(5*5%-1,A%*3+5) ;FS (INSTR( 
SS ,MIDS (RS (S$) ,A3,1))-1) 

13ØØ NEXT 

131Ø NEXT, 

132Ø IF RND(15)=15 THEN PROCfstop 

1330 ENDPROC 

1349 
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1350 DEF PROCmoney (M3) 

1360 COLOUR 6:COLOUR 128 

1370 PRINTTAB(12,5);"£";M$ DIV 19;","; 
M% MOD 19;"g " 

1380 ENDPROC 

1399 : 

1400 DEF PROCmore 

1418 FORA=1TO5ØØØ: NEXT 

1420 VDU 22,7 

1438 PRINTTAB (19,190) ;CHRS133; "Another 
go (Y/N)?"; 

144Ø A=GET 

1459 IF A=89 THEN ENDPROC 

146Ø IF A<>78 THEN 142Ø 

1478 PRINT: END 

1488 : 

1490 DEF PROCcheck:PRIZES=Ø 

1500 H$(1)20:H$ (2) =Ø:H% (3) 20: GM$- 

1518 RIS=MIDS (RS (1) ,2,1) 

1520 R2S=MIDS (R$ (2) ,2,1) 

1530 R3S=MIDS (R$ (3) ,2,1) 

1540 IF INSTR(RS(1),"B")>Ø AND INSTR(R 
S(2) ,"B")>@ AND INSTR (RS (3) ;”B")>Ø THEN 

PROC3beebugs : GM3=1 : GOTO158Ø 

1550 IF INSTR(RS(1),"B")>Ø AND INSTR(R 
$(2) ,"B") >Ø THEN PROC2win:GM$-1:GOTO1580 

1560 IF RIS=R2S AND R1S=R38 THEN PROC3 
win: GM3%=1:GOTO158Ø 

157Ø IF RIS=R2$ THEN PROC2win 

1580 PROCmoney (MN%) : PROCdi spmon 

159Ø ENDPROC 

1600 : 

161Ø DEF PROCdispmon 

162Ø COLOUR3: PRINTTAB (1,19) "DOUBLE" ; TA 
B(1,21) "NOTHING" :FORC=1 T04 

163Ø COLOURC : PRINTTAB (3,21+(2*C) ) ; (2^C 
) *10; "p": NEXT 

1640- ENDPROC 

1650 : 

1660 DEF PROC2win:IF GM$-1 ENDPROC ` 

1670 PRIZE%=FNdorn (2) :MN%=MN%+PRIZES:G 
M$-1 

1680 IF PRIZE%=Ø THEN SOUND 3,-15,390,1 
Q:GOTO!739 

1690 SOUND 1,-15,1ØØ,19 

1700 SOUND 1,-15,88,5 

1718 SOUND 1,-15,104,5 

1720 SOUND 1,-15,96,16 
1730 X=2: ENDPROC 

1740 : 

1750 DEF PROC3beebugs: IF GM$-1 ENDPROC 

1768 MN%=MN%+1Ø:SOUND 1,-15,88,5 

177Ø SOUND 1,-15,92,5 

1780 SOUND 1,-15,112,1Ø 

1790 SOUND 1,-15,1Ø8,5 

1800 SOUND 1,-15,12Ø,1Ø 

1818 X=3:GM%=1 : ENDPROC 

18208 : 

183@ DEF PROCset:COLOUR 128 

18498 CLS 
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1878 MOVE1 89,648: DRAW1 189,649 

1880 COLOUR 4 

1890 PRINTTAB (12,1) ; "RUNNING" 

1900 PRINTTAB (13,3) ; "TOTAL" 

1918 COLOUR 6 

1928 PROCmoney (MN?) 

1938 PROCdispmon 

1940 FOR A=8 TO 15 

1950 FOR C-4 TO 14 STEP 5 

1960 PRINTTAB(C,A);" " 

1970 NEXT, 

1980 FOR A$-1 TO 3 

1990 FOR B%=1 TO 3 

2000 GS=MIDS (RS (A%) ,B%,1) 

2Ø19 PRINTTAB (5*A%-1 ,5+3*B%) ; FS (INSTR ( 
S$,G$)-1) 

2020 NEXT, 

2030 GCOLO,6:MOVE32,16:DRAW32,1008:DRA 
W1248,1008:DRAW1248,16:DRAW32,16 

2040 FOR X$-0 TO2:MOVE 250-4 (X$*320),500 

2050 DRAW 390+ (X2$*320),500:DRAW 390-4 (X 
$*320) ,780: DRAW 250+ (X$*329) , 780: DRAW 2 
5Ø+ (X$* 320) , 500 

2060 NEXT:VDU23,1,0;0;0;0; 

2070 ENDPROC 

2080 : 

2090 DEF PROChold:H%(1)=Ø:H%(2)=Ø:H%(3 
)=Ø 

21ØØ COLOUR4: PRINTTAB (8, 25) 3"1/2/3=HOL 
DS":*FX15 1 

211Ø COLOUR 14:COLOUR 128 

2120 PRINTTAB (3,17) ; "HOLD HOLD HOLD" 

213Ø REPEAT:A=GET-48 

214Ø UNTIL (A>Ø AND A<4) OR A=35 OR A= 
19 

2150 IF A=19 THEN FORA2=1TO3:H3 (A2) =Ø: 
NEXT:GOTO 211Ø 

216Ø IF A=35 THEN 221Ø 

217Ø H% (A) =TRUE 

218Ø COLOUR 4 

2190 PRINTTAB (5*A-2,17) ; "HOLD" 

22ØØ GOTO 213Ø 

221Ø COLOUR Ø 

222Ø FOR A$=1 TO 3 

2230 PRINTTAB (5*A%-2,17) ; "HOLD" 

2240 NEXT: PRINTTAB (8,25) ; SPC(11) 

2250 ENDPROC 

2260 : 

2270 DEF PROC3win:IF GM%=1 ENDPROC 

2280 IF RIS="C" OR RIS="P" OR R1S$z"A" 
THEN PRIZES= 

2290 IF RIS="M" OR RIS="G" THEN PRIZES 
=8 

2300 IF RIS="R" THEN PRIZES=15 

2310 IF R1S="0" THEN PRIZE$-20:PROCtune 

2320 IF PRIZES<1Ø THEN PRIZE$-FNdorn(P 
RIZE3) 

2330 IF PRIZE$<2Ø AND PRIZES>Ø THEN SO 
UND 1,-15,1Ø9,5:SOUND 1,-15,89,5:SOUND1 


LØ, 3:MOVE1ØØ,632:DRAN118Ø,632 


2340 MN%=MN%+PRIZES 
2350 PROCmoney (MN3) 
2360 GM$-1:ENDPROC 
2370 : 

2380 DEF PROCtune 

2390 RESTORE 2630 
2400 READ L% 

2410 FOR Y$-1 TO L% 
2420 READ P,D 

2430 SOUND 1,-15,P,D:IF P=Ø P--] 

2440 SOUND 2,-15,P+1,D 

2450 NEXT 

2460 X-3:ENDPROC 

2470 : 

2480 DEFFNdorn(U%) 

2490 J$-1:COLOUR 128: PROCup (US) 

25ØØ REPEAT: SOUND 2,-15,53,3 

251Ø COLOUR 4 

252Ø PRINTTAB (1,19) ; "DOUBLE" 

2530 A=INKEY (15) :IE A=67 THEN U%=U3*2: 

PROCup (U3) 
254Ø IF A=83 THEN J%=Ø:GOTO261Ø 
2550 COLOUR 3: PRINTTAB (1,19) ; "DOUBLE" 
256Ø SOUND 2,-15,61,3 
2570 COLOUR 4:PRINTTAB (1,21) ; "NOTHING" 
2580 A=INKEY(15):IF A=67 THEN U%=Ø: SOU 

ND 1,-15,53,5 
2590 IF A=83 THEN J$- 

2600 COLOUR 3: PRINTTAB (1,21) ; "NOTHING" 
2610 UNTIL U%=16 OR U%=Ø OR J$- 

2620 DON%=1:=U% 

2630 DATA 16,117,7,145,12,117,3,12Ø,3 
2640 DATA 123,3,126,3,129,10,0,2,80,7 
2650 DATA 95,12,8Ø,3,77,3,74,3,71,3 
2660 DATA 68,3,65,10 

2670 : 

2680 DEF PROCup (US$) 

2690 COLOUR7 

2700 IF US$-2 THEN PRINTTAB(3,23); 20p" 
2710 IF US%=4 THEN PRINTTAB (3,25) ; "4Øp 

"> TAB (3,23) ; "20p" 

2720 IF US$-8 THEN PRINTTAB(3,27);"80p 

"> TAB (3,25) ; "Agp" 

2730 IF US%=16 THEN PRINTTAB (3,29) ;"16 

Op": TIZTIME: REPEATUNTILTIME>100+TI 
2740 ENDPROC 
2750 : 

2760 DEF PROCshuffle:*FX 15,1 
2770 COLOUR 2:PRINTTAB(1,1) "SHUFFLE"; 

TAB (8 P 30) TET "= SHUFFLE" 

2780 L%=59: REPEAT: LS=L3+4:S=INKEY (Ø) :S 

OUND 1,-15,L2,2 
2790 UNTIL S=32 OR S=67 
2800 IF S=32 THEN PROCshuf 
2819 PRINTTAB(1,1) ; SPC(7) ; TAB(8,30) ;SP 

C(11) 

2820 ENDPROC 

2830 : 

2840 DEF PROCshuf : X$ (1) =- (RND(8) +2) 
2850 X% (2) =RND (8) +2 
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2860 X% (3) =- (RND (8) *2) 

2870 FOR Y%=1 TO 1Ø 

2880 FOR S2-1 TO 3 

2890 IF ABS(X$(S$))-Y$ THEN 2980 

2900 PR% (53) =PR3% (5%) +SGN (X3 (52)) 

2910 IF PR%(S%)=22 THEN PR%(S%)=1 

2920 IF PR%(S%)=Ø THEN PR%(S%)=21 

2930 IF X%(S%)<Ø THEN RS(S%) =LEFTS ( (MI 
DS (RLS (53%) , PRS (53) ,1) *R$ (52) ) ,3) 

294Ø IF X%(S%)>@ THEN RS(S%) =RIGHTS ( (R 
S(S%) +MIDS (RLS (S?) , PR$ (S2) ,1)) ,3) 

2950 FOR A$-1 TO 3 

2960 PRINTTAB(5*5%-1,A%*3+5) ;FS (INSTR( 
SS,MIDS (R$ (S$) ,AS,1 ) )-1 ) 

2970 NEXT 

2980 NEXT, 

2990 PROCcheck 

3000 ENDPROC 

30168 : 

3020 DEF PROCfstop 

3030 *FX15,1 

3040 COLOUR 1:X-1 

3050 COLOUR 128 

3060 PRINTTAB (1,3) ; "FEATURE"; TAB(1,5) ; 
"STOP": TAB (8,19) ; "SHIFTzNUDGE" ; TAB (17,2 
Ø) "UP" : COLOUR5: PRINTTAB (9, 27) ; "F=FEATUR 
E";TAB(15,28) ; "STOP" 

3070 PROCstop 

3080 PRINTTAB (1,3) ; SEC (7) ; TAB (1,5) ; SPC 
(4) ; TAB(8,19) ;SPC (11) ;TAB(17,2Ø) SPC (2) ; 
TAB (9, 27) ¿SPC (9) ; TAB (15,28) ; SPC (4) 

3090 ENDPROC 

3190 : 

3110 DEF PROCstop 

3120 COLOUR 3:COLOUR 128:K%=1 

3130 REPEAT:SOUND2,-15,RND (20) *4+53,2 
3140 AS-RND(19) 

3150 PRINTTAB(6,5);A$;" " 

3160 S-INKEY (20) 

3170 UNTIL S=7Ø 

3180 PROCnudge (A?) 

3190 ENDPROC 

3200 : 

3210 DEF PROCnudge(A$):*FX15 1 

3220 ROLD1S=RS (1) 

3230 ROLD2S=R$ (2) 

3240 ROLD3S-RS (3) 

3250 FOR B$-0 TO A$-1 

3260 PRINTTAB(6,5);A$-B$;" " 

3270 REPEAT: S=GET 

3280 UNTIL (S>48 AND S<52) OR (S>32 AN 
D S<36) 

3290 T=INSTR ("321 
BS (T) 

3300 PR% (U) =PR3% (U) +SGN (T) 

331Ø IF PR%(U)>2Ø THEN PR%(U)=1:GOTO33 
3Ø 

3320 IF PR%(U)<1| THEN PR%(U)=2Ø 

3330 IF PR%(U)>18 THEN RS(U)=RIGHTS (RL 
d" ag er 
U))) 


ke) 


UNE CHRS(S) ) -4:U7A 


334Ø IF PR 
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$(U)X19 THEN R$ (U)=MIDS (RLS ( 
U) , PR% (U) ,3) | 

3350 FOR D%=1 TO 3 

3360 PRINTTAB (5*U-1,D%*3+5) ; FS (INSTR (S 
$,MIDS (R$ (U) ;D$,1 ) ) -1 ) 

3370 NEXT: IF NOT(ROLDIS=RS(1) AND ROLD 
29=RS (2) AND ROLD3S-R$(3)) THEN PROCche 


3380 IF GM$-1 B$-A$*2:F$- 

3390 NEXT: PRINTTAB (6,5) ;SPC (3) 

3400 ENDPROC 

3418 : 

3420 DEF PROCchars:RESTORE 3490 

3430 FOR A$-224 TO 255:READ AS:VDU 23, 


3440 FOR B%=1 TO 15 STEP 2 
3459 VDU EVAL("&"+MIDS(A$,B%,2)) 
3460 NEXT, 

3470 ENDPROC 

3480 : 

3490 DATA 00010307070F0F00 
3500 DATA ØØ8ØCØEØEØFØFØØØ 
3510 DATA 1F1FØFØ7Ø3ØØØØØØ 
3520 DATA F8FS8F0E080804038 
3530 DATA 00070A1222524A47 
3540 DATA 00COF0783C5CO9EIE 
3550 DATA 7F474A5222120A07 
3560 DATA FFlE9E5C3C78F0CO0 
3570 DATA 090190D02C3E7FFFFF 
3580 DATA 00000000000090CO 
3590 DATA FFFFFFFF7F7F3FÜF 
3600 DATA EOFÜFÜFSFCFEFEFS8 
3610 DATA 0000010FlFlF3FFF 
3620 DATA 78FCFCFEFFFFFFFF 
3630 DATA 3F1F1FØFØ1 ØØØØØØ 
3640 DATA FFFFFFFEFCFC78ØØ 
3650 DATA 558291A8908040A0 
3660 DATA 5582112811820508 
3670 DATA 55AA552A15Ø81969 
3680 DATA 718041A0512845A3 
3690 DATA Ø61F3F766666663F 
3700 DATA CØFØF8DCCCCØCØF8 
3710 DATA 3FØ6Ø666763F1FØ6 
3720 DATA F8CCCCCCDCF8FØCØ 
3730 DATA ØØFF8ØB69ØE61436 
3740 DATA ØØFFØIDDØSD985DD 
3750 DATA ØØØAØAØAØAØGØØØØ 
3760 DATA 016181BF90600000 
3770 DATA 0101910107081938 
3780 DATA 00000000804020109 
3798 DATA 387C7C38381ØØØØØ 
3800 DATA 1Ø38387C7C38381Ø 
3810 DATA 2,3,5,2,7,2,5,1 
3820 : 

3830 ON ERROR OFF:MODE 7 
3840 IF ERR=17 END 

3850 REPORT: PRINT" at line ";ERL:END 
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IF YOU WRITE TO US 


BACK ISSUES (Members only) 
All back issues are kept in print (from 
April 1982) priced as follows: 
Individual copies: 
Volume 1 - £0.80 
Volume 2 - £0.99 
Volume 3 - £1.00 
Volume 1 set (190 issues) £7 
Volume 2 set (18 issues) £8 
Please add cost of post and packing as shown: 
No of DESTINATION 
copies UK Europe Elsewhere 


1 Ø.3Ø 9.70 
2- 5 0.50 1.590 
6 - 1g 1.09 3.09 
11 - 29 1.58 4.00 
All overseas items are sent airmail (please send 
a sterling cheque). We will accept official UK 
orders but please note that there will be a £l 
handling charge for orders under £19 that require 
an invoice. Note that there is no VAT on 
magazines. 


This offer is for members only, so it is 
ESSENTIAL to quote your membership number with 
your order. Please note that the BEEBUG Reference 
Card and BEEBUG supplements are not supplied with 
back issues. 


SUBSCRIPTIONS 


Send all applications for membership, 
subscription renewals, and subscription queries 
to the subscriptions address. 


MEMBERSHIP COSTS: 
U.K. i 
£6.4Ø for 6 months (5 issues) 
£11.9Ø for 1 year (1Ø issues) 


Eire and Europe 
Membership £18 for 1 year. 
Middle East £21 
Americas and Africa £23 
Elsewhere £25 
Payment in Sterling essential. 


PROGRAMS AND ARTICLES 


All programs and articles used are paid for at 
around £25 per page, but please give us warning 
of anything substantial that you intend to write. 
In the case of material longer than a page, we 
would prefer this to be submitted on cassette or 


disc in machine readable form using "Wordwise", 


"View", "Minitext Editor" or other means. If you 


use Cassette, please include a backup copy at 3ØØ 
baud. 


HINTS 
There are prizes of £5 and £10 for the best hints 


each month, plus one of £15 for a hint or tip 
deemed to be exceptionally good. 


Please | send all editorial material to the 
editorial address below. If you require a reply 


it is essential to quote your membership number 
and enclose an SAE. 


Editorial Address 


BEEBUG 
PO Box 50 
St Albans 

Herts 


Subscriptions & 
Software Address 


BEEBUG 
PO BOX 189 
High Wycombe 
Bucks HP1Ø 8HQ 


Hotline for queries and software orders 


St.Albans (0727) 60263 
Manned Mon-Fri 9am-4.3Øpm 


24hr Answerphone Service for Access and 
Barclaycard orders, and subscriptions 


Penn (049481) 6666 


If you require members' discount on software it 
is essential to quote your membership number and 
claim the discount when ordering. 


BEEBUG MAGAZINE is produced by BEEBUG Publications Ltd. 


Editor: Mike Williams. 


Assistant Editor: Geoff Bains. Production Editor: Phyllida Vanstone. 
Technical Assistants: David Fell and Alan Webster. 


Managing Editor: Lee Calcraft. 


Thanks are due to Sheridan Williams, Adrian Calcraft, Matthew Rapier, John Yale, and 
Tim Powys-Lybbe for assistance with this issue. 


All rights reserved. No part of this publication may be reproduced without prior 
written permission of the Publisher. The Publisher cannot accept any responsibility, 
whatsoever for errors in articles, programs, or advertisements published. The 


opinions expressed on the pages of this 
necessarily represent those of the Publis 


journal are those of the authors and do not 
her, BEEBUG Publications Limited. 


BEEBUG Publications Ltd (c) 1984. 


10 S/S D/D Discs — £13.90 10 D/S D/D Discs — £19.40 
25 S/S D/D Discs — £33.45 25 D/S D/D Discs — £46.95 
50 S/S D/D Discs — £59.30 50 D/S D/D Discs — f 87.05 
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The programs featured each month in the BEEBUG magazine are now available to members on disc and 
cassette. ' 


Each month we will produce a disc and cassette containing all of the programs included in that month's 
issue of BEEBUG. Both the disc and the cassette will display a full menu allowing the selection of 
individual programs and the disc will incorporate a Special program allowing it to be read by both 40 
and 80 track disc drives. Details of the programs included in this month's magazine cassette and disc 
are given below. i 


Magazine cassettes are priced at 23.00 and discs at 24.75. 
SEE BELOW FOR FULL ORDERING INFORMATION. 


This Month's Prograins Include: 


Subscription to the magazine cassette and disc is also available to members and offers the added 


| advantage of regularly receiving the programs at the same time as the magazine, but under separate 
cover. 


Subcription is offered either for a period of 6 months (5 issues) or 1 year (10 issues) and may be 
backdated if required. (The first magazine cassette available is Vol 1 No. 10; the first disc available is 
Vol 3 No. 1.) 


6 MONTHS (8 issues) UK £17.00 INC... Overseas $20.00 (No VAT payable) 
l YEAR (10 issues) UK £33.00 INC... Overseas £39.00 (No VAT payable) 


| 
À 


x 


C29 W 


6 MONTHS (5 discs) UK £25:50 INC... Overseas £30.00 (No VAT payable 
1 YEAR (10 discs) UK £50.00 INC... Overseas £56.00 ( No VAT payable) 


im 


If you are currently subscribing to the BEEBUG magazine cassette and would prefer to receive the 
remainder of your subscription on disc, it is possible to transfer the subscription. Because of the 
difference between the cassette and disc prices, there will be an extra £1.70 to pay for each remaining 
issue of the subscription. Please calculate the amount due and enclose with your order. 


Please send your order to the address below and include a sterling cheque. Postage is included in 
subscription rates but please add 50p for the first item and 30p for each subsequent item when ordering 
individual discs or cassettes in the UK. Overseas orders please send the same amount to include the i 
extra post but not VAT. 

SEND TO: 


BEEBUGSOFT, PO BOX 109, HIGH WYCOMBE, BUCKS, HP10 8HQ 


Printed in England by Staples Printers St Albans Limited at The Priory. Press. i i ISSN 0263-7561 


